--- rat/lonpage.pm 2000/09/14 20:10:39 1.4
+++ rat/lonpage.pm 2005/02/17 09:09:57 1.67
@@ -1,88 +1,135 @@
# The LearningOnline Network with CAPA
# Page Handler
#
-# (TeX Content Handler
+# $Id: lonpage.pm,v 1.67 2005/02/17 09:09:57 albertel Exp $
#
-# 05/29/00,05/30 Gerd Kortemeyer)
-# 08/30,08/31,09/06,09/14 Gerd Kortemeyer
+# Copyright Michigan State University Board of Trustees
+#
+# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+#
+# LON-CAPA is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# LON-CAPA is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with LON-CAPA; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+# /home/httpd/html/adm/gpl.txt
+#
+# http://www.lon-capa.org/
+#
+###
package Apache::lonpage;
use strict;
use Apache::Constants qw(:common :http);
use Apache::lonnet();
+use Apache::loncommon();
+use Apache::lonxml();
+use Apache::lonlocal;
+use Apache::lonmenu;
+use HTML::TokeParser;
use GDBM_File;
+use Apache::lonsequence;
# -------------------------------------------------------------- Module Globals
my %hash;
my @rows;
-
-my %ssibody=();
-my %ssibgcolor=();
-my %ssitext=();
-my %ssilink=();
-my %ssivlink=();
-my %ssialink=();
-my %cellemb=();
+
+# ------------------------------------------------------------------ Euclid gcd
+
+sub euclid {
+ my ($e,$f)=@_;
+ my $a; my $b; my $r;
+ if ($e>$f) { $b=$e; $r=$f; } else { $r=$e; $b=$f; }
+ while ($r!=0) {
+ $a=$b; $b=$r;
+ $r=$a%$b;
+ }
+ return $b;
+}
# ------------------------------------------------------------ Build page table
sub tracetable {
my ($sofar,$rid,$beenhere)=@_;
my $further=$sofar;
+ my $randomout=0;
+ unless ($ENV{'request.role.adv'}) {
+ $randomout = $hash{'randomout_'.$rid};
+ }
unless ($beenhere=~/\&$rid\&/) {
- $beenhere.=$rid.'&';
-
- if (defined($hash{'is_map_'.$rid})) {
- if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) &&
- (defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) {
- my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}};
- $sofar=
- &tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}},
- '&'.$frid.'&');
- $sofar++;
- if ($hash{'src_'.$frid}) {
- my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid});
- if (($brepriv eq '2') || ($brepriv eq 'F')) {
- if (defined($rows[$sofar])) {
- $rows[$sofar].='&'.$frid;
- } else {
- $rows[$sofar]=$frid;
- }
- }
- }
- }
- } else {
- $sofar++;
- if ($hash{'src_'.$rid}) {
- my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid});
- if (($brepriv eq '2') || ($brepriv eq 'F')) {
- if (defined($rows[$sofar])) {
- $rows[$sofar].='&'.$rid;
- } else {
- $rows[$sofar]=$rid;
- }
- }
- }
- }
-
- if (defined($hash{'to_'.$rid})) {
- map {
- my $now=&tracetable($sofar,$hash{'goesto_'.$_},$beenhere);
- if ($now>$further) { $further=$now; }
- } split(/\,/,$hash{'to_'.$rid});
- }
+ $beenhere.=$rid.'&';
+ unless ($randomout) {
+ if (defined($hash{'is_map_'.$rid})) {
+ if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) &&
+ (defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) {
+ my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}};
+ $sofar=
+ &tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}},
+ '&'.$frid.'&');
+ $sofar++;
+ if ($hash{'src_'.$frid}) {
+ my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid});
+ if (($brepriv eq '2') || ($brepriv eq 'F')) {
+ if (defined($rows[$sofar])) {
+ $rows[$sofar].='&'.$frid;
+ } else {
+ $rows[$sofar]=$frid;
+ }
+ }
+ }
+ }
+ } else {
+ $sofar++;
+ if ($hash{'src_'.$rid}) {
+ my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid});
+ if (($brepriv eq '2') || ($brepriv eq 'F')) {
+ if (defined($rows[$sofar])) {
+ $rows[$sofar].='&'.$rid;
+ } else {
+ $rows[$sofar]=$rid;
+ }
+ }
+ }
+ }
+ }
+
+ if (defined($hash{'to_'.$rid})) {
+ my $mincond=1;
+ my $next='';
+ foreach (split(/\,/,$hash{'to_'.$rid})) {
+ my $thiscond=
+ &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});
+ if ($thiscond>=$mincond) {
+ if ($next) {
+ $next.=','.$_.':'.$thiscond;
+ } else {
+ $next=$_.':'.$thiscond;
+ }
+ if ($thiscond>$mincond) { $mincond=$thiscond; }
+ }
+ }
+ foreach (split(/\,/,$next)) {
+ my ($linkid,$condval)=split(/\:/,$_);
+ if ($condval>=$mincond) {
+ my $now=&tracetable($sofar,$hash{'goesto_'.$linkid},$beenhere);
+ if ($now>$further) { $further=$now; }
+ }
+ }
+ }
}
return $further;
}
-sub cell {
- my ($r,$colspan,$rid)=@_;
- $r->print('
');
- $r->print($hash{'src_'.$rid});
- $r->print(' | ');
-}
-
# ================================================================ Main Handler
sub handler {
@@ -92,20 +139,30 @@ sub handler {
if ($r->header_only) {
if ($ENV{'browser.mathml'}) {
- $r->content_type('text/xml');
+ &Apache::loncommon::content_type($r,'text/xml');
} else {
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
}
$r->send_http_header;
return OK;
}
-
- my $requrl=$r->uri;
+
+ &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+ ['forceselect','launch']);
+ my $number_of_columns = 1;
+ my $requrl=$r->uri;
+ my $target = $ENV{'form.grade_target'};
+# &Apache::lonnet::logthis("Got a target of $target");
+ if ($target eq 'meta') {
+ &Apache::loncommon::content_type($r,'text/html');
+ $r->send_http_header;
+ return OK;
+ }
# ----------------------------------------------------------------- Tie db file
- if ($ENV{'request.course.fn'}) {
+ if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {
my $fn=$ENV{'request.course.fn'};
if (-e "$fn.db") {
- if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_WRCREAT,0640)) {
+ if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {
# ------------------------------------------------------------------- Hash tied
my $firstres=$hash{'map_start_'.$requrl};
my $lastres=$hash{'map_finish_'.$requrl};
@@ -114,70 +171,390 @@ sub handler {
@rows=();
- &tracetable(0,$firstres,'&'.$lastres.'&');
- if ($hash{'src_'.$lastres}) {
- my $brepriv=
- &Apache::lonnet::allowed('bre',$hash{'src_'.$lastres});
- if (($brepriv eq '2') || ($brepriv eq 'F')) {
- $rows[$#rows+1]=''.$lastres;
+ &tracetable(0,$firstres,'&');
+
+# ------------------------------------------------------------ Add to symb list
+
+ my $i;
+ my %symbhash=();
+ for ($i=0;$i<=$#rows;$i++) {
+ if ($rows[$i]) {
+ my @colcont=split(/\&/,$rows[$i]);
+ foreach (@colcont) {
+ $symbhash{$hash{'src_'.$_}}='';
+ }
}
}
+ &Apache::lonnet::symblist($requrl,%symbhash);
+
+# ------------------------------------------------------------------ Page parms
- my $i;
my $j;
- my $maxcols=-1;
+ my $lcm=1;
+ my $contents=0;
+ my $nforms=0;
+
+ my %ssibody=();
+ my %ssibgcolor=();
+ my %ssitext=();
+ my %ssilink=();
+ my %ssivlink=();
+ my %ssialink=();
+
+ my %metalink=();
+
+ my %cellemb=();
+
+ my $allscript='';
+ my $allmeta='';
+
+ my $isxml=0;
+ my $xmlheader='';
+ my $xmlbody='';
# --------------------------------------------- Get SSI output, post parameters
for ($i=0;$i<=$#rows;$i++) {
if ($rows[$i]) {
+ $contents++;
my @colcont=split(/\&/,$rows[$i]);
- $maxcols=$#colcont>$maxcols?$#colcont:$maxcols;
- map {
+ $lcm*=($#colcont+1)/euclid($lcm,($#colcont+1));
+ foreach (@colcont) {
my $src=$hash{'src_'.$_};
- $src=~/\.\w+$/;
- $cellemb{$_}=Apache::lonnet::fileembstyle($1);
+ my ($extension)=($src=~/\.(\w+)$/);
+ if ($hash{'encrypted_'.$_}) {
+ $src=&Apache::lonenc::encrypted($src);
+ }
+ $metalink{$_}=$src.'.meta';
+ $cellemb{$_}=
+ &Apache::loncommon::fileembstyle($extension);
if ($cellemb{$_} eq 'ssi') {
# --------------------------------------------------------- This is an SSI cell
-
+ my ($mapid,$resid)=split(/\./,$_);
+ my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$src);
+
+ my $prefix=$_.'_';
+ my %posthash=('request.prefix' => $prefix,
+ 'symb' => $symb);
+ if ($ENV{'form.grade_target'} eq 'tex') {
+ $posthash{'grade_target'}=$ENV{'form.grade_target'};
+ $posthash{'textwidth'}=$ENV{'form.textwidth'};
+ $posthash{'problem_split'}=$ENV{'form.problem_split'};
+ $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 $output=Apache::lonnet::ssi($src,%posthash);
+ $output=~s|//(\s*)?\s||gs;
+ if ($target eq 'tex') {
+ $output =~ s/^([^&]+)\\begin{document}//;
+ $output =~ s/\\end{document}//;
+ $output = '\parbox{\minipagewidth}{ '.$output.' }';
+ #some additional cleanup necessary for LateX (due to limitations of table environment
+ $output =~ s/(\\vskip\s*\d+mm)\s*(\\\\)+/$1/g;
+ }
+ my $parser=HTML::TokeParser->new(\$output);
+ my $token;
+ my $thisdir=$src;
+ my $bodydef=0;
+ my $thisxml=0;
+ my @rlinks=();
+ if ($output=~/\?xml/) {
+ $isxml=1;
+ $thisxml=1;
+ $output=~
+ /((?:\<(?:\?xml|\!DOC|html)[^\>]*(?:\>|\>\]\>)\s*)+)\]*\>/si;
+ $xmlheader=$1;
+ }
+ while ($token=$parser->get_token) {
+ if ($token->[0] eq 'S') {
+ if ($token->[1] eq 'a') {
+ if ($token->[2]->{'href'}) {
+ $rlinks[$#rlinks+1]=
+ $token->[2]->{'href'};
+ }
+ } elsif ($token->[1] eq 'img') {
+ $rlinks[$#rlinks+1]=
+ $token->[2]->{'src'};
+ } elsif ($token->[1] eq 'embed') {
+ $rlinks[$#rlinks+1]=
+ $token->[2]->{'src'};
+ } elsif ($token->[1] eq 'base') {
+ $thisdir=$token->[2]->{'href'};
+ } elsif ($token->[1] eq 'body') {
+ $bodydef=1;
+ $ssibgcolor{$_}=$token->[2]->{'bgcolor'};
+ $ssitext{$_}=$token->[2]->{'text'};
+ $ssilink{$_}=$token->[2]->{'link'};
+ $ssivlink{$_}=$token->[2]->{'vlink'};
+ $ssialink{$_}=$token->[2]->{'alink'};
+ if ($thisxml) {
+ $xmlbody=$token->[4];
+ }
+ } elsif ($token->[1] eq 'meta') {
+ if ($token->[4] !~ m:/>$:) {
+ $allmeta.="\n".$token->[4].'';
+ } else {
+ $allmeta.="\n".$token->[4];
+ }
+ } elsif (($token->[1] eq 'script') &&
+ ($bodydef==0)) {
+ $allscript.="\n\n"
+ .$parser->get_text('/script');
+ }
+ }
+ }
+ if ($output=~/\]*\>(.*)/si) {
+ $output=$1;
+ }
+ $output=~s/\<\/body\>.*//si;
+ if ($output=~/\