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

Diff for /rat/Attic/lonftest.pm between versions 1.1 and 1.4

version 1.1, 2000/09/25 20:31:33 version 1.4, 2000/11/14 18:39:34
Line 40  sub handler { Line 40  sub handler {
 ENDSTART  ENDSTART
   
 # ---------------------------------------------------------------- Hash Restore  # ---------------------------------------------------------------- Hash Restore
       $r->print("<h2>Random Seed</h2>".&Apache::lonnet::rndseed());
     $r->print("<h2>Restored Hash</h2>");      $r->print("<h2>Restored Hash</h2>");
   
     my %hash=&Apache::lonnet::restore();      my %hash=&Apache::lonnet::restore();
Line 53  ENDSTART Line 53  ENDSTART
   $r->print(<<ENDFORM);    $r->print(<<ENDFORM);
 <h2>Form</h2>  <h2>Form</h2>
 <form action="$thisurl" method="post">  <form action="$thisurl" method="post">
     <input name="$ENV{'form.request.prefix'}store" type=hidden value='yes'>      <input name="store" type=hidden value='yes'>
     <input name="$ENV{'form.request.prefix'}top" type=text size=20>      <input name="top" type=text size=20>
     <input name="$ENV{'form.request.prefix'}bottom" type=text size=20>      <input name="bottom" type=text size=20>
     <input name="$ENV{'form.request.prefix'}submit" type=submit value="Yeah!">      <input name="submit" type=submit value="Yeah!">
 </form>  </form>
 ENDFORM  ENDFORM
   
Line 67  ENDFORM Line 67  ENDFORM
         &Apache::lonnet::store('top'    => $ENV{'form.top'},          &Apache::lonnet::store('top'    => $ENV{'form.top'},
                                'bottom' => $ENV{'form.bottom'}));                                 'bottom' => $ENV{'form.bottom'}));
   }    }
     $r->print("\n<br>".&Apache::lonnet::EXT('resource.fred'));
     $r->print("\n<br>".&Apache::lonnet::EXT('resource.deadline.type'));
   $r->print('</body></html>');    $r->print('</body></html>');
   return OK;    return OK;
 }  }
Removed from v.1.1  
changed lines
  Added in v.1.4

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