|
version 1.1, 2000/09/25 20:31:33
|
version 1.3, 2000/11/13 18:15:54
|
|
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 |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonftest.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat