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

Diff for /rat/lonpage.pm between versions 1.49 and 1.51

version 1.49, 2003/02/14 19:35:55 version 1.51, 2003/04/18 13:58:44
Line 239  sub handler { Line 239  sub handler {
                                }                                 }
       }        }
                               my $output=Apache::lonnet::ssi($src,%posthash);                                my $output=Apache::lonnet::ssi($src,%posthash);
         $output=~
       s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\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 348  sub handler { Line 350  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 language='JavaScript'>\n".        $r->print("\n<script language='JavaScript'>\n".
  $allscript."\n</script>\n");   $allscript."\n</script>\n");
Line 360  sub handler { Line 360  sub handler {
   if ($isxml) {    if ($isxml) {
       $r->print($xmlbody);        $r->print($xmlbody);
   } else {    } else {
       $r->print('<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonmenu::loadevents.'" onUnload="'.&Apache::lonmenu::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) {
Removed from v.1.49  
changed lines
  Added in v.1.51

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