--- rat/Attic/lonftest.pm	2000/09/25 20:31:33	1.1
+++ rat/Attic/lonftest.pm	2000/11/14 18:39:34	1.4
@@ -40,7 +40,7 @@ sub handler {
 ENDSTART
 
 # ---------------------------------------------------------------- Hash Restore
-
+    $r->print("<h2>Random Seed</h2>".&Apache::lonnet::rndseed());
     $r->print("<h2>Restored Hash</h2>");
 
     my %hash=&Apache::lonnet::restore();
@@ -53,10 +53,10 @@ ENDSTART
   $r->print(<<ENDFORM);
 <h2>Form</h2>
 <form action="$thisurl" method="post">
-    <input name="$ENV{'form.request.prefix'}store" type=hidden value='yes'>
-    <input name="$ENV{'form.request.prefix'}top" type=text size=20>
-    <input name="$ENV{'form.request.prefix'}bottom" type=text size=20>
-    <input name="$ENV{'form.request.prefix'}submit" type=submit value="Yeah!">
+    <input name="store" type=hidden value='yes'>
+    <input name="top" type=text size=20>
+    <input name="bottom" type=text size=20>
+    <input name="submit" type=submit value="Yeah!">
 </form>
 ENDFORM
 
@@ -67,6 +67,8 @@ ENDFORM
         &Apache::lonnet::store('top'    => $ENV{'form.top'},
                                '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>');
   return OK;
 }