[BACK]Return to lonpage.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonpage.pm between versions 1.8 and 1.27

version 1.8, 2000/09/23 20:12:46 version 1.27, 2001/10/01 19:58:05
Line 4 Line 4
 # (TeX Content Handler  # (TeX Content Handler
 #  #
 # 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 Gerd Kortemeyer  # 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,
   # 08/13/01,08/30,10/1 Gerd Kortemeyer
   
 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::lonxml();
 use HTML::TokeParser;  use HTML::TokeParser;
 use GDBM_File;  use GDBM_File;
   
Line 73  sub tracetable { Line 76  sub tracetable {
        }         }
   
        if (defined($hash{'to_'.$rid})) {         if (defined($hash{'to_'.$rid})) {
     my $mincond=1;
             my $next='';
           map {            map {
               my $now=&tracetable($sofar,$hash{'goesto_'.$_},$beenhere);                my $thiscond=
               if ($now>$further) { $further=$now; }        &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});
                 if ($thiscond>=$mincond) {
     if ($next) {
         $next.=','.$_.':'.$thiscond;
                     } else {
                         $next=$_.':'.$thiscond;
     }
                     if ($thiscond>$mincond) { $mincond=$thiscond; }
         }
           } split(/\,/,$hash{'to_'.$rid});            } split(/\,/,$hash{'to_'.$rid});
             map {
                 my ($linkid,$condval)=split(/\:/,$_);
                 if ($condval>=$mincond) {
                   my $now=&tracetable($sofar,$hash{'goesto_'.$linkid},$beenhere);
                   if ($now>$further) { $further=$now; }
         }
             } split(/\,/,$next);
   
        }         }
     }      }
     return $further;      return $further;
Line 122  sub handler { Line 143  sub handler {
      }       }
   }    }
   
   # ------------------------------------------------------------ Add to symb list
   
                   my $i;                    my $i;
                     my %symbhash=();
                     for ($i=0;$i<=$#rows;$i++) {
        if ($rows[$i]) {
                           my @colcont=split(/\&/,$rows[$i]);
                           map {
                              $symbhash{$hash{'src_'.$_}}='';
           } @colcont;
        }
     }
                     &Apache::lonnet::symblist($requrl,%symbhash);
   
   # ------------------------------------------------------------------ Page parms
   
                   my $j;                    my $j;
                   my $lcm=1;                    my $lcm=1;
                   my $contents=0;                    my $contents=0;
Line 134  sub handler { Line 170  sub handler {
                   my %ssilink=();                    my %ssilink=();
                   my %ssivlink=();                    my %ssivlink=();
                   my %ssialink=();                    my %ssialink=();
        
                     my %metalink=();
   
                   my %cellemb=();                    my %cellemb=();
   
                   my $allscript='';                    my $allscript='';
Line 153  sub handler { Line 192  sub handler {
                       map {                        map {
                           my $src=$hash{'src_'.$_};                            my $src=$hash{'src_'.$_};
                           $src=~/\.(\w+)$/;                            $src=~/\.(\w+)$/;
                             $metalink{$_}=$src.'.meta';
                           $cellemb{$_}=Apache::lonnet::fileembstyle($1);                            $cellemb{$_}=Apache::lonnet::fileembstyle($1);
                           if ($cellemb{$_} eq 'ssi') {                            if ($cellemb{$_} eq 'ssi') {
 # --------------------------------------------------------- This is an SSI cell  # --------------------------------------------------------- This is an SSI cell
Line 171  sub handler { Line 211  sub handler {
                               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);
                               my $token;                                my $token;
                                 my $thisdir=$src;
                               my $bodydef=0;                                my $bodydef=0;
                               my $thisxml=0;                                my $thisxml=0;
                                 my @rlinks=();
                               if ($output=~/\?xml/) {                                if ($output=~/\?xml/) {
                                  $isxml=1;                                   $isxml=1;
                                  $thisxml=1;                                   $thisxml=1;
Line 180  sub handler { Line 222  sub handler {
          /((?:\<(?:\?xml|\!DOC|html)[^\>]*(?:\>|\>\]\>)\s*)+)\<body[^\>]*\>/si;           /((?:\<(?:\?xml|\!DOC|html)[^\>]*(?:\>|\>\]\>)\s*)+)\<body[^\>]*\>/si;
                                  $xmlheader=$1;                                   $xmlheader=$1;
       }        }
                               while (($bodydef==0) &&                                while ($token=$parser->get_token) {
                                      ($token=$parser->get_token)) {   if ($token->[0] eq 'S') {
   if ($token->[1] eq 'body') {                                    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;        $bodydef=1;
                                       $ssibgcolor{$_}=$token->[2]->{'bgcolor'};                                        $ssibgcolor{$_}=$token->[2]->{'bgcolor'};
                                       $ssitext{$_}=$token->[2]->{'text'};                                        $ssitext{$_}=$token->[2]->{'text'};
Line 192  sub handler { Line 247  sub handler {
                                       if ($thisxml) {                                        if ($thisxml) {
   $xmlbody=$token->[4];    $xmlbody=$token->[4];
                                       }                                        }
                                   }                                    } elsif ($token->[1] eq 'meta') {
                                   if ($token->[1] eq 'meta') {  
       $allmeta.="\n".$token->[4].'</meta>';        $allmeta.="\n".$token->[4].'</meta>';
                                   }                                    } elsif (($token->[1] eq 'script') &&
                                   if ($token->[1] eq 'script') {                                             ($bodydef==0)) {
       $allscript.="\n\n"        $allscript.="\n\n"
                                                 .$parser->get_text('/script');                                                  .$parser->get_text('/script');
                                   }                                    }
                               }          }
         }
                               if ($output=~/\<body[^\>]*\>(.*)/si) {                                if ($output=~/\<body[^\>]*\>(.*)/si) {
                                  $output=$1;                                    $output=$1; 
                               }                                }
Line 209  sub handler { Line 264  sub handler {
   $nforms++;    $nforms++;
                                   $output=~s/\<form[^\>]*\>//gsi;                                    $output=~s/\<form[^\>]*\>//gsi;
                                   $output=~s/\<\/form[^\>]*\>//gsi;                                    $output=~s/\<\/form[^\>]*\>//gsi;
                                     $output=~
         s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([\w\.\:]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;
                               }                                }
                                 $thisdir=~s/\/[^\/]*$//;
         map {
     unless (($_=~/^http:\/\//i) ||
                                             ($_=~/^\//)) {
         my $newlocation=
       &Apache::lonnet::hreflocation($thisdir,$_);
                        $output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/;
     }
         } @rlinks;
   # -------------------------------------------------- Deal with Applet codebases
     $output=~s/(\<applet[^\>]+)(codebase\=[^\S\>]+)*([^\>]*)\>/$1.($2?$2:' codebase="'.$thisdir.'"').$3.'>'/gei;
       $ssibody{$_}=$output;        $ssibody{$_}=$output;
   
 # ---------------------------------------------------------------- End SSI cell  # ---------------------------------------------------------------- End SSI cell
                           }                            }
                       } @colcont;                        } @colcont;
Line 236  sub handler { Line 303  sub handler {
       }        }
 # ------------------------------------------------------------------------ Head  # ------------------------------------------------------------------------ Head
                       $r->print("\n<head>\n".$allmeta);                        $r->print("\n<head>\n".$allmeta);
                         $allscript=~
          s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;
                       if ($allscript) {                        if ($allscript) {
   $r->print("\n<script>\n".$allscript."\n</script>\n");    $r->print("\n<script language='JavaScript'>\n".
                                      $allscript."\n</script>\n");
                       }                        }
                         $r->print(&Apache::lonxml::registerurl(1));
                       $r->print("\n</head>\n");                        $r->print("\n</head>\n");
 # ------------------------------------------------------------------ Start body  # ------------------------------------------------------------------ Start body
                       if ($isxml) {                        if ($isxml) {
                           $r->print($xmlbody);                            $r->print($xmlbody);
                       } else {                        } else {
   $r->print('<body bgcolor="#FFFFFF">');    $r->print(
    '<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonxml::loadevents.
                        '" onUnload="'.&Apache::lonxml::unloadevents.'">');
                       }                        }
   
 # ------------------------------------------------------------------ Start form  # ------------------------------------------------------------------ Start form
                       if ($nforms) {                        if ($nforms) {
   $r->print('<form method="post" action="'.    $r->print('<form method="post" action="'.
Line 261  sub handler { Line 333  sub handler {
                           my $avespan=$lcm/($#colcont+1);                            my $avespan=$lcm/($#colcont+1);
                           for ($j=0;$j<=$#colcont;$j++) {                            for ($j=0;$j<=$#colcont;$j++) {
                               my $rid=$colcont[$j];                                my $rid=$colcont[$j];
                                 my $metainfo='<a href="'.
                                       $metalink{$rid}.'" target="LONcatInfo">'.
                             '<img src="/adm/lonMisc/cat_button.gif" border=0>'.
     '</img></a>';
                                 if (
    ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&
    (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) {
     my ($mapid,$resid)=split(/\./,$rid);
                                    my $symb=
                   &Apache::lonnet::declutter($hash{'map_id_'.$mapid}).
                   '___'.$resid.'___'.
    &Apache::lonnet::declutter($hash{'src_'.$rid});
                                    $metainfo.=
                     '<a href="/adm/grades?symb='.$symb.
                     '&command=submission" target="LONcatInfo">'.
                             '<img src="/adm/lonMisc/subm_button.gif" border=0>'.
     '</img></a>'.
                     '<a href="/adm/grades?symb='.$symb.
                     '&command=viewgrades" target="LONcatInfo">'.
                             '<img src="/adm/lonMisc/pgrd_button.gif" border=0>'.
     '</img></a>'.
                     '<a href="/adm/parmset?symb='.$symb.'" target="LONcatInfo">'.
                             '<img src="/adm/lonMisc/pprm_button.gif" border=0>'.
         '</img></a>';
                                 }
                                 $metainfo.='<br></br>';
                               $r->print('<td colspan="'.$avespan.'"');                                $r->print('<td colspan="'.$avespan.'"');
                               if ($cellemb{$rid} eq 'ssi') {                                if ($cellemb{$rid} eq 'ssi') {
   if ($ssibgcolor{$rid}) {    if ($ssibgcolor{$rid}) {
                                      $r->print(' bgcolor="'.                                       $r->print(' bgcolor="'.
                                                $ssibgcolor{$rid}.'"');                                                 $ssibgcolor{$rid}.'"');
                                   }                                    }
                                   $r->print('><font');                                    $r->print('>'.$metainfo.'<font');
                                   if ($ssitext{$rid}) {                                    if ($ssitext{$rid}) {
      $r->print(' text="'.$ssitext{$rid}.'"');       $r->print(' text="'.$ssitext{$rid}.'"');
                                   }                                    }
Line 283  sub handler { Line 381  sub handler {
                                                           
                                   $r->print('>'.$ssibody{$rid}.'</font>');                                    $r->print('>'.$ssibody{$rid}.'</font>');
                               } elsif ($cellemb{$rid} eq 'img') {                                } elsif ($cellemb{$rid} eq 'img') {
                                   $r->print('><img src="'.                                    $r->print('>'.$metainfo.'<img src="'.
                                     $hash{'src_'.$rid}.'"></img>');                                      $hash{'src_'.$rid}.'"></img>');
       }        } elsif ($cellemb{$rid} eq 'emb') {
                                     $r->print('>'.$metainfo.'<embed src="'.
                                       $hash{'src_'.$rid}.'"></embed>');
                                 }
                               $r->print('</td>');                                $r->print('</td>');
                           }                            }
                           $r->print('</tr>');                            $r->print('</tr>');
Line 298  sub handler { Line 399  sub handler {
                   '<input name="all_submit" value="Submit All" type="'.                    '<input name="all_submit" value="Submit All" type="'.
   (($nforms>1)?'submit':'hidden').'"></input></form>');    (($nforms>1)?'submit':'hidden').'"></input></form>');
                       }                        }
                       $r->print('</body></html>');                        $r->print('</body>'.&Apache::lonxml::xmlend());
 # -------------------------------------------------------------------- End page  # -------------------------------------------------------------------- End page
                   }                                      }                  
 # ------------------------------------------------------------- End render page  # ------------------------------------------------------------- End render page
Line 318  sub handler { Line 419  sub handler {
           }            }
       }         } 
   }    }
   $ENV{'user.error.msg'}="$requrl:bre:1:1:Course not initialized";    $ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";
   return HTTP_NOT_ACCEPTABLE;     return HTTP_NOT_ACCEPTABLE; 
 }  }
   
Removed from v.1.8  
changed lines
  Added in v.1.27

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.