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

Diff for /rat/lonpage.pm between versions 1.34 and 1.39

version 1.34, 2002/03/26 16:14:51 version 1.39, 2002/05/27 12:04:36
Line 48  use Apache::loncommon(); Line 48  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 151  sub handler { Line 152  sub handler {
        $r->send_http_header;         $r->send_http_header;
        return OK;         return OK;
    }     }
    
      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                             ['forceselect','launch']);
   
   my $requrl=$r->uri;    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)) {
Line 331  sub handler { Line 336  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.'">');
                       }    }      
 # ----------------------------------------------------------------- Start table  # ----------------------------------------------------------------- Start table
                       $r->print('<table cols="'.$lcm.'" border="0">');    $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 376  sub handler { Line 383  sub handler {
                                     $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?postdata='.    '</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 396  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('>'.$ssibody{$rid}.'</font>');        }             
                               } elsif ($cellemb{$rid} eq 'img') {        $r->print('>');
     }
                                     $r->print($ssibody{$rid});
     unless ($target eq 'tex') {
         $r->print('</font>');
     }
         } 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>');
         }
                           }                            }
                           $r->print('</tr>');        unless ($target eq 'tex') {
     $r->print('</tr>');
         }
         }          }
                       }                        }
                       $r->print("\n</table>");        unless ($target eq 'tex') {
     $r->print("\n</table>");
         }
 # ---------------------------------------------------------------- Submit, etc.  # ---------------------------------------------------------------- Submit, etc.
                       if ($nforms) {                        if ($nforms) {
                           $r->print(                            $r->print(
Line 448  sub handler { Line 471  sub handler {
               } 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 484  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.34  
changed lines
  Added in v.1.39

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.