Diff for /rat/lonratsrv.pm between versions 1.7 and 1.8

version 1.7, 2000/10/02 16:10:12 version 1.8, 2001/04/30 15:44:44
Line 7 Line 7
 # 05/29/00,05/30 Gerd Kortemeyer)  # 05/29/00,05/30 Gerd Kortemeyer)
 # 7/1 Gerd Kortemeyer)  # 7/1 Gerd Kortemeyer)
 # 7/1,7/3,7/4,7/7,7/8,7/10,7/26,10/2 Gerd Kortemeyer  # 7/1,7/3,7/4,7/7,7/8,7/10,7/26,10/2 Gerd Kortemeyer
   # 4/30/2001 Scott Harrison
   
 package Apache::lonratsrv;  package Apache::lonratsrv;
   
Line 274  sub handler { Line 275  sub handler {
   
   if ($mode ne 'loadonly') {    if ($mode ne 'loadonly') {
      $errtext=&savemap($fn,$errtext);       $errtext=&savemap($fn,$errtext);
      $onload='onLoad="parent.code.srvloaded();"';  #     $onload='onLoad="parent.code.srvloaded();"';
   }    }
   ($outtext,$errtext)=&loadmap($fn,$errtext);    ($outtext,$errtext)=&loadmap($fn,$errtext);
   
   $r->print(<<ENDDOCUMENT);    $r->print(<<ENDDOCUMENT);
 <html>  <html>
 <body bgcolor="#FFFFFF" $onload>  <body bgcolor="#FFFFFF">
 <form name=storage method=post action="$url">  <form name=storage method=post action="$url">
 <input type=hidden name=output value="$outtext">  <input type=hidden name=output value="$outtext">
 </form>  </form>
   <script>
       parent.code.srvloaded();
   </script>
 ENDDOCUMENT  ENDDOCUMENT
     if ($errtext ne '') {      if ($errtext ne '') {
  $r->print(<<ENDSCRIPT);   $r->print(<<ENDSCRIPT);

Removed from v.1.7  
changed lines
  Added in v.1.8


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