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

Diff for /rat/lonpage.pm between versions 1.33 and 1.48

version 1.33, 2002/03/19 15:09:17 version 1.48, 2003/02/03 18:03:53
Line 33 Line 33
 # 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  # YEAR=2001
 # 08/13/01,08/30,10/1 Gerd Kortemeyer  # 08/13/01,08/30,10/1 Gerd Kortemeyer
 # 12/16 Scott Harrison  
 # YEAR=2002  # YEAR=2002
 # 03/19 Gerd Kortemeyer  # 03/19 Gerd Kortemeyer
 #  #
Line 48  use Apache::loncommon(); Line 47  use Apache::loncommon();
 use Apache::lonxml();  use Apache::lonxml();
 use HTML::TokeParser;  use HTML::TokeParser;
 use GDBM_File;  use GDBM_File;
   use Apache::lonsequence;
   
 # -------------------------------------------------------------- Module Globals  # -------------------------------------------------------------- Module Globals
 my %hash;  my %hash;
Line 146  sub handler { Line 146  sub handler {
        if ($ENV{'browser.mathml'}) {         if ($ENV{'browser.mathml'}) {
            $r->content_type('text/xml');             $r->content_type('text/xml');
        } else {         } else {
            $r->content_type('text/html');             $r->content_type('text/html'); 
        }         }
        $r->send_http_header;         $r->send_http_header;
        return OK;         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'};
 # ----------------------------------------------------------------- Tie db file  # ----------------------------------------------------------------- Tie db file
   if ($ENV{'request.course.fn'}) {    if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {
       my $fn=$ENV{'request.course.fn'};        my $fn=$ENV{'request.course.fn'};
       if (-e "$fn.db") {        if (-e "$fn.db") {
           if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) {            if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {
 # ------------------------------------------------------------------- Hash tied  # ------------------------------------------------------------------- Hash tied
               my $firstres=$hash{'map_start_'.$requrl};                my $firstres=$hash{'map_start_'.$requrl};
               my $lastres=$hash{'map_finish_'.$requrl};                my $lastres=$hash{'map_finish_'.$requrl};
Line 166  sub handler { Line 170  sub handler {
   
                   @rows=();                    @rows=();
   
                   &tracetable(0,$firstres,'&'.$lastres.'&');                    &tracetable(0,$firstres,'&');
                   if ($hash{'src_'.$lastres}) {  
                      my $brepriv=  
                         &Apache::lonnet::allowed('bre',$hash{'src_'.$lastres});  
                      if (($brepriv eq '2') || ($brepriv eq 'F')) {  
                         $rows[$#rows+1]=''.$lastres;  
      }  
   }  
   
 # ------------------------------------------------------------ Add to symb list  # ------------------------------------------------------------ Add to symb list
   
Line 241  sub handler { Line 238  sub handler {
                                }                                 }
       }        }
                               my $output=Apache::lonnet::ssi($src,%posthash);                                my $output=Apache::lonnet::ssi($src,%posthash);
                                 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 $parser=HTML::TokeParser->new(\$output);
                               my $token;                                my $token;
                               my $thisdir=$src;                                my $thisdir=$src;
Line 331  sub handler { Line 335  sub handler {
 # ------------------------------------------------------------------ Build page  # ------------------------------------------------------------------ Build page
   
 # ---------------------------------------------------------------- Send headers  # ---------------------------------------------------------------- Send headers
                       if ($isxml) {        unless ($target eq 'tex') {
   $r->content_type('text/xml');    if ($isxml) {
                           $r->send_http_header;        $r->content_type('text/xml');
                           $r->print($xmlheader);        $r->send_http_header;
       } else {        $r->print($xmlheader);
                           $r->content_type('text/html');    } else {
                           $r->send_http_header;        $r->content_type('text/html');
                           $r->print('<html>');        $r->send_http_header;
       }        $r->print('<html>');
     }
 # ------------------------------------------------------------------------ Head  # ------------------------------------------------------------------------ Head
                       $r->print("\n<head>\n".$allmeta);    $r->print("\n<head>\n".$allmeta);
                       $allscript=~    $allscript=~
        s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;        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::lonxml::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(        $r->print('<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonxml::loadevents.'" onUnload="'.&Apache::lonxml::unloadevents.'">');
  '<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="'.
     $requrl.'">');   $requrl.'">');
                       }    }
         } else {
     $r->print('\documentclass{article}
                                    \newcommand{\keephidden}[1]{}           
                                    \usepackage[dvips]{graphicx}
                                    \usepackage{epsfig}
                                    \usepackage{calc}
                                    \usepackage{longtable}
                                    \begin{document}');
         }
 # ----------------------------------------------------------------- Start table  # ----------------------------------------------------------------- Start table
                       $r->print('<table cols="'.$lcm.'" border="0">');        if ($target eq 'tex') {
     $r->print('\begin{longtable}INSERTTHEHEADOFLONGTABLE\endfirsthead\endhead ');
     if ($number_of_columns le $lcm) {$number_of_columns=$lcm;};
         } else {
     $r->print('<table cols="'.$lcm.'" border="0">');
         }
                       for ($i=0;$i<=$#rows;$i++) {                        for ($i=0;$i<=$#rows;$i++) {
  if ($rows[$i]) {   if ($rows[$i]) {
                           $r->print("\n<tr>");      unless ($target eq 'tex') {
    $r->print("\n<tr>");
       }
                           my @colcont=split(/\&/,$rows[$i]);                            my @colcont=split(/\&/,$rows[$i]);
                           my $avespan=$lcm/($#colcont+1);                            my $avespan=$lcm/($#colcont+1);
                           for ($j=0;$j<=$#colcont;$j++) {                            for ($j=0;$j<=$#colcont;$j++) {
Line 375  sub handler { Line 394  sub handler {
                               my $metainfo='<a href="'.                                my $metainfo='<a href="'.
                                     $metalink{$rid}.'" target="LONcatInfo">'.                                      $metalink{$rid}.'" target="LONcatInfo">'.
                           '<img src="/adm/lonMisc/cat_button.gif" border=0>'.                            '<img src="/adm/lonMisc/cat_button.gif" border=0>'.
   '</img></a><a href="/adm/evaluate?feedurl='.    '</img></a><a href="/adm/evaluate?postdata='.
       &Apache::lonnet::declutter($hash{'src_'.$rid}).'" target="LONcatInfo">'.        &Apache::lonnet::escape(&Apache::lonnet::declutter($hash{'src_'.$rid}))
         .'" target="LONcatInfo">'.
                           '<img src="/adm/lonMisc/eval_button.gif" border=0>'.                            '<img src="/adm/lonMisc/eval_button.gif" border=0>'.
                           '</img></a>';                            '</img></a>';
                               if (                                if (
Line 388  sub handler { Line 408  sub handler {
                 '___'.$resid.'___'.                  '___'.$resid.'___'.
  &Apache::lonnet::declutter($hash{'src_'.$rid});   &Apache::lonnet::declutter($hash{'src_'.$rid});
                                  $metainfo.=                                   $metainfo.=
                   '<a href="/adm/grades?symb='.$symb.                    '<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb).
                   '&command=submission" target="LONcatInfo">'.                    '&command=submission" target="LONcatInfo">'.
                           '<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='.$symb.                    '<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb).
                   '&command=viewgrades" target="LONcatInfo">'.                    '&command=gradingmenu" target="LONcatInfo">'.
                           '<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='.$symb.'" target="LONcatInfo">'.                    '<a href="/adm/parmset?symb='.&Apache::lonnet::escape($symb).
                             '" target="LONcatInfo">'.
                           '<img src="/adm/lonMisc/pprm_button.gif" border=0>'.                            '<img src="/adm/lonMisc/pprm_button.gif" border=0>'.
       '</img></a>';        '</img></a>';
                               }                                }
                               $metainfo.='<br></br>';                                $metainfo.='<br></br>';
                               $r->print('<td colspan="'.$avespan.'"');      unless ($target eq 'tex') {
    $r->print('<td colspan="'.$avespan.'"');
       }
                               if ($cellemb{$rid} eq 'ssi') {                                if ($cellemb{$rid} eq 'ssi') {
   if ($ssibgcolor{$rid}) {    unless ($target eq 'tex') {
                                      $r->print(' bgcolor="'.        if ($ssibgcolor{$rid}) {
                                                $ssibgcolor{$rid}.'"');    $r->print(' bgcolor="'.
                                   }      $ssibgcolor{$rid}.'"');
                                   $r->print('>'.$metainfo.'<font');        }
                                   if ($ssitext{$rid}) {        $r->print('>'.$metainfo.'<font');
      $r->print(' text="'.$ssitext{$rid}.'"');      
                                   }        if ($ssitext{$rid}) {
                                   if ($ssilink{$rid}) {    $r->print(' text="'.$ssitext{$rid}.'"');
      $r->print(' link="'.$ssilink{$rid}.'"');        }
                                   }        if ($ssilink{$rid}) {
                                   if ($ssitext{$rid}) {    $r->print(' link="'.$ssilink{$rid}.'"');
      $r->print(' vlink="'.$ssivlink{$rid}.'"');        }
                                   }        if ($ssitext{$rid}) {
                                   if ($ssialink{$rid}) {    $r->print(' vlink="'.$ssivlink{$rid}.'"');
      $r->print(' alink="'.$ssialink{$rid}.'"');        }
         if ($ssialink{$rid}) {
     $r->print(' alink="'.$ssialink{$rid}.'"');
         }             
         $r->print('>');
     }
                                     $r->print($ssibody{$rid});
     unless ($target eq 'tex') {
         $r->print('</font>');
                                   }                                    }
                                                                 if ($ENV{'course.'.
                                   $r->print('>'.$ssibody{$rid}.'</font>');                                        $ENV{'request.course.id'}.
                               } elsif ($cellemb{$rid} eq 'img') {                                        '.pageseparators'} eq 'yes') {
                                         unless($target eq 'tex') {
                                             $r->print('<hr />');
                                         } else {
                                             $r->print('\hline');
                                         }
     }
         } elsif ($cellemb{$rid} eq 'img') {
                                   $r->print('>'.$metainfo.'<img src="'.                                    $r->print('>'.$metainfo.'<img src="'.
                                     $hash{'src_'.$rid}.'"></img>');                                      $hash{'src_'.$rid}.'"></img>');
       } 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>');
                               }                                }
                               $r->print('</td>');        unless ($target eq 'tex') {
     $r->print('</td>');
         } else {
                                     for (my $incol=1;$incol<=$avespan;$incol++) {
         $r->print(' & ');
     }
         }
                           }                            }
                           $r->print('</tr>');        unless ($target eq 'tex') {
     $r->print('</tr>');
         } else {
     $r->print('REMOVETHEHEADOFLONGTABLE\\\\');
         }
         }          }
                       }                        }
                       $r->print("\n</table>");        unless ($target eq 'tex') {
     $r->print("\n</table>");
         } else {
     $r->print('\end{longtable}\strut');
         }
 # ---------------------------------------------------------------- Submit, etc.  # ---------------------------------------------------------------- Submit, etc.
                       if ($nforms) {                        if ($nforms) {
                           $r->print(                            $r->print(
                   '<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>'.&Apache::lonxml::xmlend());        unless ($target eq 'tex') {
     $r->print('</body>'.&Apache::lonxml::xmlend());
         } else {
     $r->print('\end{document}'.$number_of_columns);
         }
 # -------------------------------------------------------------------- End page  # -------------------------------------------------------------------- End page
                   }                                      }                  
 # ------------------------------------------------------------- End render page  # ------------------------------------------------------------- End render page
               } else {                } else {
                   $r->content_type('text/html');                    $r->content_type('text/html');
                   $r->send_http_header;                    $r->send_http_header;
   $r->print('<html><body>Page undefined.</body></html>');                    &Apache::lonsequence::viewmap($r,$requrl);
               }                }
 # ------------------------------------------------------------------ Untie hash  # ------------------------------------------------------------------ Untie hash
               unless (untie(%hash)) {                unless (untie(%hash)) {
Line 461  sub handler { Line 517  sub handler {
           }            }
       }         } 
   }    }
   $ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";    $r->content_type('text/html');
   return HTTP_NOT_ACCEPTABLE;     $r->send_http_header;
     &Apache::lonsequence::viewmap($r,$requrl);
     return OK; 
 }  }
   
 1;  1;
Removed from v.1.33  
changed lines
  Added in v.1.48

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.