--- rat/lonpage.pm 2005/06/29 19:02:14 1.71
+++ rat/lonpage.pm 2008/11/20 13:11:43 1.88
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Page Handler
#
-# $Id: lonpage.pm,v 1.71 2005/06/29 19:02:14 albertel Exp $
+# $Id: lonpage.pm,v 1.88 2008/11/20 13:11:43 jms Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -27,6 +27,107 @@
#
###
+=head1 NAME
+
+Apache::lonpage - Page Handler
+
+=head1 SYNOPSIS
+
+Invoked by /etc/httpd/conf/srm.conf:
+
+
+ SetHandler perl-script
+ PerlHandler Apache::lonpage
+
+
+=head1 INTRODUCTION
+
+This module renders a .page resource.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=head1 HANDLER SUBROUTINE
+
+This routine is called by Apache and mod_perl.
+
+=over 4
+
+=item *
+
+set document type for header only
+
+=item *
+
+tie db file
+
+=item *
+
+render page
+
+=item *
+
+add to symb list
+
+=item *
+
+page parms
+
+=item *
+
+Get SSI output, post parameters
+
+=item *
+
+SSI cell rendering
+
+=item *
+
+Deal with Applet codebases
+
+=item *
+
+Build page
+
+=item *
+
+send headers
+
+=item *
+
+start body
+
+=item *
+
+start form
+
+=item *
+
+start table
+
+=item *
+
+submit element, etc, render page, untie hash
+
+=back
+
+=head1 OTHER SUBROUTINES
+
+=over 4
+
+=item *
+
+euclid() : Euclid's method for determining the greatest common denominator.
+
+=item *
+
+tracetable() : Build page table.
+
+=back
+
+=cut
+
+
package Apache::lonpage;
use strict;
@@ -39,6 +140,9 @@ use Apache::lonmenu;
use HTML::TokeParser;
use GDBM_File;
use Apache::lonsequence;
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
+
# -------------------------------------------------------------- Module Globals
my %hash;
@@ -75,7 +179,7 @@ sub tracetable {
my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}};
$sofar=
&tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}},
- '&'.$frid.'&');
+ '&'.$frid.$beenhere);
$sofar++;
if ($hash{'src_'.$frid}) {
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid});
@@ -180,8 +284,10 @@ sub handler {
for ($i=0;$i<=$#rows;$i++) {
if ($rows[$i]) {
my @colcont=split(/\&/,$rows[$i]);
- foreach (@colcont) {
- $symbhash{$hash{'src_'.$_}}=['page','notasymb'];
+ foreach my $rid (@colcont) {
+ my ($mapid,$resid)=split(/\./,$rid);
+ $symbhash{$hash{'src_'.$rid}}=
+ [$hash{'src_'.$rid},$resid];
}
}
}
@@ -201,8 +307,6 @@ sub handler {
my %ssivlink=();
my %ssialink=();
- my %metalink=();
-
my %cellemb=();
my $allscript='';
@@ -225,7 +329,6 @@ sub handler {
if ($hash{'encrypted_'.$_}) {
$src=&Apache::lonenc::encrypted($src);
}
- $metalink{$_}=$src.'.meta';
$cellemb{$_}=
&Apache::loncommon::fileembstyle($extension);
if ($cellemb{$_} eq 'ssi') {
@@ -244,18 +347,28 @@ sub handler {
$posthash{'latex_type'}=$env{'form.latex_type'};
$posthash{'rndseed'}=$env{'form.rndseed'};
}
- if (($env{'form.'.$prefix.'submit'})
- || ($env{'form.all_submit'})) {
- foreach (keys %env) {
- if ($_=~/^form.$prefix/) {
- my $name=$_;
- $name=~s/^form.$prefix//;
- $posthash{$name}=$env{$_};
- }
- }
+ my $submitted=exists($env{'form.all_submit'});
+ if (!$submitted) {
+ foreach my $key (keys(%env)) {
+ if ($key=~/^form.\Q$prefix\Esubmit_/) {
+ $submitted=1;last;
+ }
+ }
+ }
+ if ($submitted) {
+ foreach my $key (keys(%env)) {
+ if ($key=~/^form.\Q$prefix\E/) {
+ my $name=$key;
+ $name=~s/^form.\Q$prefix\E//;
+ $posthash{$name}=$env{$key};
+ }
+ }
+ if (exists($env{'form.all_submit'})) {
+ $posthash{'all_submit'}='yes';
+ }
}
my $output=Apache::lonnet::ssi($src,%posthash);
- $output=~s|//(\s*)?\s||gs;
+ $output=~s|//(\s*)?\s||gs;
if ($target eq 'tex') {
$output =~ s/^([^&]+)\\begin{document}//;
$output =~ s/\\end{document}//;
@@ -323,7 +436,7 @@ sub handler {
$output=~s/\