Diff for /rat/lonpage.pm between versions 1.29 and 1.30

version 1.29, 2001/11/29 19:23:48 version 1.30, 2001/12/17 00:57:59
Line 27 Line 27
 #  #
 # (TeX Content Handler  # (TeX Content Handler
 #  #
   # YEAR=2000
 # 05/29/00,05/30 Gerd Kortemeyer)  # 05/29/00,05/30 Gerd Kortemeyer)
 # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,  # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,
 # 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16,  # 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16,
   # YEAR=2001
 # 08/13/01,08/30,10/1 Gerd Kortemeyer  # 08/13/01,08/30,10/1 Gerd Kortemeyer
   # 12/16 Scott Harrison
   #
   ###
   
 package Apache::lonpage;  package Apache::lonpage;
   
 use strict;  use strict;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
 use Apache::lonnet();  use Apache::lonnet();
   use Apache::loncommon();
 use Apache::lonxml();  use Apache::lonxml();
 use HTML::TokeParser;  use HTML::TokeParser;
 use GDBM_File;  use GDBM_File;
Line 102  sub tracetable { Line 108  sub tracetable {
        if (defined($hash{'to_'.$rid})) {         if (defined($hash{'to_'.$rid})) {
   my $mincond=1;    my $mincond=1;
           my $next='';            my $next='';
           map {            foreach (split(/\,/,$hash{'to_'.$rid})) {
               my $thiscond=                my $thiscond=
       &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});        &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});
               if ($thiscond>=$mincond) {                if ($thiscond>=$mincond) {
Line 113  sub tracetable { Line 119  sub tracetable {
   }    }
                   if ($thiscond>$mincond) { $mincond=$thiscond; }                    if ($thiscond>$mincond) { $mincond=$thiscond; }
       }        }
           } split(/\,/,$hash{'to_'.$rid});            }
           map {            foreach (split(/\,/,$next)) {
               my ($linkid,$condval)=split(/\:/,$_);                my ($linkid,$condval)=split(/\:/,$_);
               if ($condval>=$mincond) {                if ($condval>=$mincond) {
                 my $now=&tracetable($sofar,$hash{'goesto_'.$linkid},$beenhere);                  my $now=&tracetable($sofar,$hash{'goesto_'.$linkid},$beenhere);
                 if ($now>$further) { $further=$now; }                  if ($now>$further) { $further=$now; }
       }        }
           } split(/\,/,$next);            }
   
        }         }
     }      }
Line 174  sub handler { Line 180  sub handler {
                   for ($i=0;$i<=$#rows;$i++) {                    for ($i=0;$i<=$#rows;$i++) {
      if ($rows[$i]) {       if ($rows[$i]) {
                         my @colcont=split(/\&/,$rows[$i]);                          my @colcont=split(/\&/,$rows[$i]);
                         map {                          foreach (@colcont) {
                            $symbhash{$hash{'src_'.$_}}='';                             $symbhash{$hash{'src_'.$_}}='';
         } @colcont;          }
      }       }
   }    }
                   &Apache::lonnet::symblist($requrl,%symbhash);                    &Apache::lonnet::symblist($requrl,%symbhash);
Line 213  sub handler { Line 219  sub handler {
       $contents++;        $contents++;
                       my @colcont=split(/\&/,$rows[$i]);                        my @colcont=split(/\&/,$rows[$i]);
                       $lcm*=($#colcont+1)/euclid($lcm,($#colcont+1));                        $lcm*=($#colcont+1)/euclid($lcm,($#colcont+1));
                       map {                        foreach (@colcont) {
                           my $src=$hash{'src_'.$_};                            my $src=$hash{'src_'.$_};
                           $src=~/\.(\w+)$/;                            $src=~/\.(\w+)$/;
                           $metalink{$_}=$src.'.meta';                            $metalink{$_}=$src.'.meta';
                           $cellemb{$_}=Apache::lonnet::fileembstyle($1);                            $cellemb{$_}=Apache::loncommon::fileembstyle($1);
                           if ($cellemb{$_} eq 'ssi') {                            if ($cellemb{$_} eq 'ssi') {
 # --------------------------------------------------------- This is an SSI cell  # --------------------------------------------------------- This is an SSI cell
       my $prefix=$_.'_';        my $prefix=$_.'_';
                               my %posthash=('request.prefix' => $prefix);                                my %posthash=('request.prefix' => $prefix);
                               if (($ENV{'form.'.$prefix.'submit'})                                 if (($ENV{'form.'.$prefix.'submit'}) 
                                || ($ENV{'form.all_submit'})) {                                 || ($ENV{'form.all_submit'})) {
                                map {                                 foreach (keys %ENV) {
   if ($_=~/^form.$prefix/) {    if ($_=~/^form.$prefix/) {
       my $name=$_;        my $name=$_;
                                       $name=~s/^form.$prefix//;                                        $name=~s/^form.$prefix//;
                                       $posthash{$name}=$ENV{$_};                                        $posthash{$name}=$ENV{$_};
                                   }                                    }
                                } keys %ENV;                                 }
       }        }
                               my $output=Apache::lonnet::ssi($src,%posthash);                                my $output=Apache::lonnet::ssi($src,%posthash);
                               my $parser=HTML::TokeParser->new(\$output);                                my $parser=HTML::TokeParser->new(\$output);
Line 296  sub handler { Line 302  sub handler {
       s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([\w\.\:]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;        s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([\w\.\:]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;
                               }                                }
                               $thisdir=~s/\/[^\/]*$//;                                $thisdir=~s/\/[^\/]*$//;
       map {        foreach (@rlinks) {
   unless (($_=~/^http:\/\//i) ||    unless (($_=~/^http:\/\//i) ||
                                           ($_=~/^\//)) {                                            ($_=~/^\//)) {
       my $newlocation=        my $newlocation=
     &Apache::lonnet::hreflocation($thisdir,$_);      &Apache::lonnet::hreflocation($thisdir,$_);
                      $output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/;                       $output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/;
   }    }
       } @rlinks;        }
 # -------------------------------------------------- Deal with Applet codebases  # -------------------------------------------------- Deal with Applet codebases
   $output=~s/(\<applet[^\>]+)(codebase\=[^\S\>]+)*([^\>]*)\>/$1.($2?$2:' codebase="'.$thisdir.'"').$3.'>'/gei;    $output=~s/(\<applet[^\>]+)(codebase\=[^\S\>]+)*([^\>]*)\>/$1.($2?$2:' codebase="'.$thisdir.'"').$3.'>'/gei;
       $ssibody{$_}=$output;        $ssibody{$_}=$output;
 # ---------------------------------------------------------------- End SSI cell  # ---------------------------------------------------------------- End SSI cell
                           }                            }
                       } @colcont;                        }
                      }                        } 
                   }                    }
                   unless ($contents) {                    unless ($contents) {
Line 454  sub handler { Line 460  sub handler {
 1;  1;
 __END__  __END__
   
   =head1 NAME
   
   Apache::lonpage - Page Handler
   
   =head1 SYNOPSIS
   
   Invoked by /etc/httpd/conf/srm.conf:
   
    <LocationMatch "^/res/.*\.page$>
    SetHandler perl-script
    PerlHandler Apache::lonpage
    </LocationMatch>
   
   =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
   
   
   

Removed from v.1.29  
changed lines
  Added in v.1.30


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>