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

Diff for /rat/lonpage.pm between versions 1.47 and 1.69

version 1.47, 2002/11/26 16:21:35 version 1.69, 2005/03/01 00:40:05
Line 25 Line 25
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 # (TeX Content Handler  
 #  
 # YEAR=2000  
 # 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,  
 # 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  
 # 12/16 Scott Harrison  
 # YEAR=2002  
 # 03/19 Gerd Kortemeyer  
 #  
 ###  ###
   
 package Apache::lonpage;  package Apache::lonpage;
Line 46  use Apache::Constants qw(:common :http); Line 34  use Apache::Constants qw(:common :http);
 use Apache::lonnet();  use Apache::lonnet();
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonxml();  use Apache::lonxml();
   use Apache::lonlocal;
   use Apache::lonmenu;
 use HTML::TokeParser;  use HTML::TokeParser;
 use GDBM_File;  use GDBM_File;
 use Apache::lonsequence;  use Apache::lonsequence;
Line 72  sub euclid { Line 62  sub euclid {
 sub tracetable {  sub tracetable {
     my ($sofar,$rid,$beenhere)=@_;      my ($sofar,$rid,$beenhere)=@_;
     my $further=$sofar;      my $further=$sofar;
       my $randomout=0;
       unless ($ENV{'request.role.adv'}) {
           $randomout = $hash{'randomout_'.$rid};
       }
     unless ($beenhere=~/\&$rid\&/) {      unless ($beenhere=~/\&$rid\&/) {
        $beenhere.=$rid.'&';            $beenhere.=$rid.'&';
           unless ($randomout) {
        if (defined($hash{'is_map_'.$rid})) {              if (defined($hash{'is_map_'.$rid})) {
            if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) &&                  if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) &&
                (defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) {                      (defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) {
               my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}};                      my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}};
       $sofar=              $sofar=
                 &tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}},                         &tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}},
                 '&'.$frid.'&');                         '&'.$frid.'&');
               $sofar++;                      $sofar++;
               if ($hash{'src_'.$frid}) {                      if ($hash{'src_'.$frid}) {
                my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid});                          my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid});
                if (($brepriv eq '2') || ($brepriv eq 'F')) {                          if (($brepriv eq '2') || ($brepriv eq 'F')) {
                  if (defined($rows[$sofar])) {                              if (defined($rows[$sofar])) {
                    $rows[$sofar].='&'.$frid;                                  $rows[$sofar].='&'.$frid;
                  } else {                              } else {
                    $rows[$sofar]=$frid;                                  $rows[$sofar]=$frid;
                  }                              }
        }                  }
       }              }
    }          }
        } else {              } else {
           $sofar++;                  $sofar++;
           if ($hash{'src_'.$rid}) {                  if ($hash{'src_'.$rid}) {
            my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid});                      my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid});
            if (($brepriv eq '2') || ($brepriv eq 'F')) {                      if (($brepriv eq '2') || ($brepriv eq 'F')) {
              if (defined($rows[$sofar])) {                          if (defined($rows[$sofar])) {
                $rows[$sofar].='&'.$rid;                              $rows[$sofar].='&'.$rid;
              } else {                          } else {
                $rows[$sofar]=$rid;                              $rows[$sofar]=$rid;
              }                          }
    }              }
           }                  }
        }              }
           }
        if (defined($hash{'to_'.$rid})) {  
   my $mincond=1;          if (defined($hash{'to_'.$rid})) {
           my $next='';      my $mincond=1;
           foreach (split(/\,/,$hash{'to_'.$rid})) {              my $next='';
               my $thiscond=              foreach (split(/\,/,$hash{'to_'.$rid})) {
                   my $thiscond=
       &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});        &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});
               if ($thiscond>=$mincond) {                  if ($thiscond>=$mincond) {
   if ($next) {      if ($next) {
       $next.=','.$_.':'.$thiscond;          $next.=','.$_.':'.$thiscond;
                   } else {                      } else {
                       $next=$_.':'.$thiscond;                          $next=$_.':'.$thiscond;
   }      }
                   if ($thiscond>$mincond) { $mincond=$thiscond; }                      if ($thiscond>$mincond) { $mincond=$thiscond; }
       }          }
           }              }
           foreach (split(/\,/,$next)) {              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; }
       }          }
           }              }
           }
        }  
     }      }
     return $further;      return $further;
 }  }
Line 145  sub handler { Line 139  sub handler {
   
   if ($r->header_only) {    if ($r->header_only) {
        if ($ENV{'browser.mathml'}) {         if ($ENV{'browser.mathml'}) {
            $r->content_type('text/xml');             &Apache::loncommon::content_type($r,'text/xml');
        } else {         } else {
            $r->content_type('text/html');              &Apache::loncommon::content_type($r,'text/html'); 
        }         }
        $r->send_http_header;         $r->send_http_header;
        return OK;         return OK;
Line 158  sub handler { Line 152  sub handler {
   my $number_of_columns = 1;    my $number_of_columns = 1;
   my $requrl=$r->uri;      my $requrl=$r->uri;  
   my $target = $ENV{'form.grade_target'};    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  # ----------------------------------------------------------------- Tie db file
   if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {    if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {
       my $fn=$ENV{'request.course.fn'};        my $fn=$ENV{'request.course.fn'};
Line 181  sub handler { Line 181  sub handler {
      if ($rows[$i]) {       if ($rows[$i]) {
                         my @colcont=split(/\&/,$rows[$i]);                          my @colcont=split(/\&/,$rows[$i]);
                         foreach (@colcont) {                          foreach (@colcont) {
                            $symbhash{$hash{'src_'.$_}}='';                             $symbhash{$hash{'src_'.$_}}=['page','notasymb'];
         }          }
      }       }
   }    }
Line 221  sub handler { Line 221  sub handler {
                       $lcm*=($#colcont+1)/euclid($lcm,($#colcont+1));                        $lcm*=($#colcont+1)/euclid($lcm,($#colcont+1));
                       foreach (@colcont) {                        foreach (@colcont) {
                           my $src=$hash{'src_'.$_};                            my $src=$hash{'src_'.$_};
                           $src=~/\.(\w+)$/;    my ($extension)=($src=~/\.(\w+)$/);
     if ($hash{'encrypted_'.$_}) {
         $src=&Apache::lonenc::encrypted($src);
     }
                           $metalink{$_}=$src.'.meta';                            $metalink{$_}=$src.'.meta';
                           $cellemb{$_}=Apache::loncommon::fileembstyle($1);                            $cellemb{$_}=
         &Apache::loncommon::fileembstyle($extension);
                           if ($cellemb{$_} eq 'ssi') {                            if ($cellemb{$_} eq 'ssi') {
 # --------------------------------------------------------- This is an SSI cell  # --------------------------------------------------------- This is an SSI cell
         my ($mapid,$resid)=split(/\./,$_);
         my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$src);
         
       my $prefix=$_.'_';        my $prefix=$_.'_';
                               my %posthash=('request.prefix' => $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'})                                 if (($ENV{'form.'.$prefix.'submit'}) 
                                || ($ENV{'form.all_submit'})) {                                 || ($ENV{'form.all_submit'})) {
                                foreach (keys %ENV) {                                 foreach (keys %ENV) {
Line 239  sub handler { Line 254  sub handler {
                                }                                 }
       }        }
                               my $output=Apache::lonnet::ssi($src,%posthash);                                my $output=Apache::lonnet::ssi($src,%posthash);
         $output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+// END LON-CAPA Internal\s*(-->)?\s||gs;
                               if ($target eq 'tex') {                                if ($target eq 'tex') {
   $output =~ s/^([^&]+)\\begin{document}//;    $output =~ s/^([^&]+)\\begin{document}//;
   $output =~ s/\\end{document}//;    $output =~ s/\\end{document}//;
Line 329  sub handler { Line 345  sub handler {
                      }                        } 
                   }                    }
                   unless ($contents) {                    unless ($contents) {
                       $r->content_type('text/html');                        &Apache::loncommon::content_type($r,'text/html');
                       $r->send_http_header;                        $r->send_http_header;
                       $r->print('<html><body>Empty page.</body></html>');                        $r->print('<html>'."\n".
                                   '<head>'."\n".
                                   &Apache::lonmenu::registerurl(1,undef)."\n".
                                   '</head>'."\n".
                                   '<body bgcolor="#FFFFFF" onLoad="'
                                   .&Apache::lonmenu::loadevents.
                                   '" onUnload="'.&Apache::lonmenu::unloadevents.'">'.
                                    &Apache::lonmenu::menubuttons(undef,$target,1)
                                  );
                         $r->print(&mt('This page is either empty or it only contains resources that are currently hidden').'. ');
                         $r->print('<br /><br />'.&mt('Please use the LON-CAPA navigation arrows to move to another item in the course').'.</body></html>');
                   } else {                    } else {
 # ------------------------------------------------------------------ Build page  # ------------------------------------------------------------------ Build page
   
 # ---------------------------------------------------------------- Send headers  # ---------------------------------------------------------------- Send headers
       unless ($target eq 'tex') {        unless ($target eq 'tex') {
   if ($isxml) {    if ($isxml) {
       $r->content_type('text/xml');        &Apache::loncommon::content_type($r,'text/xml');
       $r->send_http_header;        $r->send_http_header;
       $r->print($xmlheader);        $r->print($xmlheader);
   } else {    } else {
       $r->content_type('text/html');        &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;        $r->send_http_header;
       $r->print('<html>');        $r->print('<html>');
   }    }
 # ------------------------------------------------------------------------ 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 language='JavaScript'>\n".        $r->print("\n<script language='JavaScript'>\n".
  $allscript."\n</script>\n");   $allscript."\n</script>\n");
   }    }
   $r->print(&Apache::lonxml::registerurl(1,undef));    $r->print(&Apache::lonmenu::registerurl(1,undef));
   $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" onLoad="'.&Apache::lonxml::loadevents.'" onUnload="'.&Apache::lonxml::unloadevents.'">');        $r->print(
                  '<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonmenu::loadevents.
                  '" onUnload="'.&Apache::lonmenu::unloadevents.'">'.
                                 &Apache::lonmenu::menubuttons(undef,$target,1)
    );
   }    }
 # ------------------------------------------------------------------ Start form  # ------------------------------------------------------------------ Start form
   if ($nforms) {    if ($nforms) {
       $r->print('<form method="post" action="'.        $r->print('<form method="post" action="'.
  $requrl.'">');   &Apache::lonenc::check_encrypt($requrl)
    .'">');
   }    }
       } else {        } elsif ($target eq 'tex') {
   $r->print('\documentclass{article}    $r->print('\documentclass{article}
                                  \newcommand{\keephidden}[1]{}                                              \newcommand{\keephidden}[1]{}           
                                  \usepackage[dvips]{graphicx}                                   \usepackage[dvips]{graphicx}
Line 381  sub handler { Line 410  sub handler {
   $r->print('\begin{longtable}INSERTTHEHEADOFLONGTABLE\endfirsthead\endhead ');    $r->print('\begin{longtable}INSERTTHEHEADOFLONGTABLE\endfirsthead\endhead ');
   if ($number_of_columns le $lcm) {$number_of_columns=$lcm;};    if ($number_of_columns le $lcm) {$number_of_columns=$lcm;};
       } else {        } else {
   $r->print('<table cols="'.$lcm.'" border="0">');    $r->print('<table width="100%" cols="'.$lcm.'" border="0">');
       }        }
                       for ($i=0;$i<=$#rows;$i++) {                        for ($i=0;$i<=$#rows;$i++) {
  if ($rows[$i]) {   if ($rows[$i]) {
Line 392  sub handler { Line 421  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="'.                                my $metainfo = '';
                                     $metalink{$rid}.'" target="LONcatInfo">'.        my $esrc=&Apache::lonnet::declutter($hash{'src_'.$rid});
                           '<img src="/adm/lonMisc/cat_button.gif" border=0>'.        my ($mapid,$resid)=split(/\./,$rid);
   '</img></a><a href="/adm/evaluate?postdata='.        my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$hash{'src_'.$rid});
       &Apache::lonnet::escape(&Apache::lonnet::declutter($hash{'src_'.$rid}))        if ($hash{'encrypted_'.$rid}) {
       .'" target="LONcatInfo">'.    $symb=&Apache::lonenc::encrypted($symb);
                           '<img src="/adm/lonMisc/eval_button.gif" border=0>'.    $esrc=&Apache::lonenc::encrypted($esrc);
                           '</img></a>';        }
                                 unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) { 
                                     $metainfo ='<a name="'.&Apache::lonnet::escape($symb).'" />'.
                                     '<a href="'.$metalink{$rid}.'" target="LONcatInfo">'.
                                     '<img src="/adm/lonMisc/cat_button.gif" border=0>'.
                                     '</img></a>';
                                 }
                                 $metainfo .= '<a href="/adm/evaluate?postdata='.
     &Apache::lonnet::escape($esrc).
                                     '" target="LONcatInfo">'.
                                     '<img src="/adm/lonMisc/eval_button.gif" border=0>'.
                                     '</img></a>';
                               if (                                if (
  ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&   ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&
  (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) {   (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) && 
    ($hash{'src_'.$rid} !~ m-^/uploaded/-)) {
   my ($mapid,$resid)=split(/\./,$rid);    my ($mapid,$resid)=split(/\./,$rid);
                                  my $symb=                                   my $symb=
                 &Apache::lonnet::declutter($hash{'map_id_'.$mapid}).                  &Apache::lonnet::declutter($hash{'map_id_'.$mapid}).
Line 410  sub handler { Line 451  sub handler {
  &Apache::lonnet::declutter($hash{'src_'.$rid});   &Apache::lonnet::declutter($hash{'src_'.$rid});
                                  $metainfo.=                                   $metainfo.=
                   '<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb).                    '<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb).
                   '&command=submission" target="LONcatInfo">'.  #                 '&command=submission" target="LONcatInfo">'.
                     '&command=submission">'.
                           '<img src="/adm/lonMisc/subm_button.gif" border=0>'.                            '<img src="/adm/lonMisc/subm_button.gif" border=0>'.
   '</img></a>'.    '</img></a>'.
                   '<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb).                    '<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb).
                   '&command=gradingmenu" target="LONcatInfo">'.  #                  '&command=gradingmenu" target="LONcatInfo">'.
                     '&command=gradingmenu">'.
                           '<img src="/adm/lonMisc/pgrd_button.gif" border=0>'.                            '<img src="/adm/lonMisc/pgrd_button.gif" border=0>'.
   '</img></a>'.    '</img></a>'.
                   '<a href="/adm/parmset?symb='.&Apache::lonnet::escape($symb).                    '<a href="/adm/parmset?symb='.&Apache::lonnet::escape($symb).
                           '" target="LONcatInfo">'.  #                          '" target="LONcatInfo">'.
                             '" >'.
                           '<img src="/adm/lonMisc/pprm_button.gif" border=0>'.                            '<img src="/adm/lonMisc/pprm_button.gif" border=0>'.
       '</img></a>';        '</img></a>';
                               }                                }
Line 467  sub handler { Line 511  sub handler {
       } elsif ($cellemb{$rid} eq 'emb') {        } elsif ($cellemb{$rid} eq 'emb') {
                                   $r->print('>'.$metainfo.'<embed src="'.                                    $r->print('>'.$metainfo.'<embed src="'.
                                     $hash{'src_'.$rid}.'"></embed>');                                      $hash{'src_'.$rid}.'"></embed>');
                                 } elsif (&Apache::lonnet::declutter($hash{'src_'.$rid}) !~/\.(sequence|page)$/) {
                                     $r->print($metainfo.'<b>'.$hash{'title_'.$rid}.'</b><br />'.
                                     &mt('It is recommended that you use an up-to-date virus scanner before handling this file.').'</p><p><table>'.
                                     &Apache::londocs::entryline(0,&mt("Click to download or use your browser's Save Link function"),'/'.&Apache::lonnet::declutter($hash{'src_'.$rid})).'</table></p><br />');
                               }                                }
       unless ($target eq 'tex') {        unless ($target eq 'tex') {
   $r->print('</td>');    $r->print('</td>');
Line 499  sub handler { Line 547  sub handler {
       } else {        } else {
   $r->print('\end{document}'.$number_of_columns);    $r->print('\end{document}'.$number_of_columns);
       }        }
         &Apache::lonnet::symblist($requrl,%symbhash);
         my ($map,$id,$url)=&Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
         &Apache::lonnet::symblist($map,'last_known'=>[$url,$id]);
 # -------------------------------------------------------------------- End page  # -------------------------------------------------------------------- End page
                   }                                      }                  
 # ------------------------------------------------------------- End render page  # ------------------------------------------------------------- End render page
               } else {                } else {
                   $r->content_type('text/html');                    &Apache::loncommon::content_type($r,'text/html');
                   $r->send_http_header;                    $r->send_http_header;
                   &Apache::lonsequence::viewmap($r,$requrl);                    &Apache::lonsequence::viewmap($r,$requrl);
               }                }
Line 518  sub handler { Line 569  sub handler {
           }            }
       }         } 
   }    }
   $r->content_type('text/html');    &Apache::loncommon::content_type($r,'text/html');
   $r->send_http_header;    $r->send_http_header;
   &Apache::lonsequence::viewmap($r,$requrl);    &Apache::lonsequence::viewmap($r,$requrl);
   return OK;     return OK; 
Removed from v.1.47  
changed lines
  Added in v.1.69

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.