[LON-CAPA-cvs] cvs: loncom /homework grades.pm

[www]

www		Fri Mar 26 15:40:55 2010 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  Moving "verify receipt" one level deeper
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.602 loncom/homework/grades.pm:1.603
--- loncom/homework/grades.pm:1.602	Thu Mar 25 19:56:33 2010
+++ loncom/homework/grades.pm	Fri Mar 26 15:40:55 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.602 2010/03/25 19:56:33 www Exp $
+# $Id: grades.pm,v 1.603 2010/03/26 15:40:55 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -731,10 +731,13 @@
 sub initialverifyreceipt {
    my $request = shift;
    &commonJSfunctions($request);
-   $request->print('<form name="gradingMenu"><input type="submit" value="'.&mt('Verify Receipt No.').'" />'.
+   my ($symb)   = &get_symb($request);
+   return '<form name="gradingMenu"><input type="submit" value="'.&mt('Verify Receipt No.').'" />'.
         &Apache::lonnet::recprefix($env{'request.course.id'}).
         '-<input type="text" name="receipt" size="4" />'.
-        "</form>\n");
+        '<input type="hidden" name="symb" value="'.&Apache::lonenc::check_encrypt($symb).'" />'."\n".
+        '<input type="hidden" name="command" value="verify" />'.
+        "</form>\n";
 }
 
 #--- Check whether a receipt number is valid.---