--- loncom/interface/lonevaluate.pm	2001/12/22 21:46:02	1.6
+++ loncom/interface/lonevaluate.pm	2002/08/09 19:49:30	1.9
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Evaluate
 #
-# $Id: lonevaluate.pm,v 1.6 2001/12/22 21:46:02 www Exp $
+# $Id: lonevaluate.pm,v 1.9 2002/08/09 19:49:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -47,6 +47,7 @@ sub handler {
     $r->send_http_header;
     return OK if $r->header_only;
 
+    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']);
   my $feedurl=$ENV{'form.postdata'};
   $feedurl=~s/^http\:\/\///;
   $feedurl=~s/^$ENV{'SERVER_NAME'}//;
@@ -66,7 +67,7 @@ sub handler {
     my @retrieve=map{ $prefix.$_ } @items;
 
     my %currenteval=
-       &Apache::lonnet::get('resevaldata',\@retrieve,$rdomain,$rauth);
+       &Apache::lonnet::get('nohist_resevaldata',\@retrieve,$rdomain,$rauth);
 
     my $already=($currenteval{$prefix.'timestamp'} ne '');
 
@@ -89,23 +90,30 @@ sub handler {
 <html>
 <head>
 <title>Evaluation submitted</title>
+<script>
+    function go() {
+	if (window.name!='LONcatInfo') {
+            window.location='/res/$feedurl';
+        }
+    }
+</script>
 <meta http-equiv="pragma" content="no-cache"></meta>
-<meta HTTP-EQUIV="Refresh" CONTENT="2; url=/res/$feedurl">
 </head>
 <body bgcolor="#FFFFFF">
 <h1>Thank you for your input!</h1>
 ENDHEADER
        $r->print('Storing feedback: '.
-           &Apache::lonnet::put('resevaldata',\%currenteval,$rdomain,$rauth));
+           &Apache::lonnet::put('nohist_resevaldata',\%currenteval,$rdomain,$rauth));
            unless ($already) {
 	       $r->print('<br>Logging first evaluation');
            }
-           $r->print('</body></html>');
+           $r->print(
+            '<script>setTimeout("go()",2000);</script></body></html>');
            return OK;
         } else {
 	    $warning='Please fill out all fields below';
         }
-    
+   
     }
 
 # ---------------------------------------------------------- Dial in old values
