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

[albertel]

albertel		Mon Sep 22 16:48:21 2003 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - adding validation pass
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.141 loncom/homework/grades.pm:1.142
--- loncom/homework/grades.pm:1.141	Sun Sep 21 17:40:06 2003
+++ loncom/homework/grades.pm	Mon Sep 22 16:48:21 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.141 2003/09/21 21:40:06 www Exp $
+# $Id: grades.pm,v 1.142 2003/09/22 20:48:21 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3189,7 +3189,7 @@
     my $result;
     $result.= <<SCANTRONFORM;
 <form method="post" enctype="multipart/form-data" action="/adm/grades" name="scantro_process">
-  <input type="hidden" name="command" value="scantron_process" />
+  <input type="hidden" name="command" value="scantron_validate" />
   $default_form_data
   <table width="100%" border="0">
     <tr>
@@ -3219,7 +3219,7 @@
       </td>
     </tr>
   </table>
-  <input type="submit" value="Submit" />
+  <input type="submit" value="Validate Scantron Records" />
 </form>
 $grading_menu_button
 SCANTRONFORM
@@ -3337,6 +3337,11 @@
 #and then get the instructor to fix all of these errors, then grade
 #the corrected one, I'll still need to catch error conditions, but
 #maybe most will taken care even before we start
+
+sub scantron_validate_file {
+    my ($r) = @_;
+}
+
 sub scantron_process_students {
     my ($r) = @_;
     my (undef,undef,$sequence)=&Apache::lonnet::decode_symb($ENV{'form.selectpage'});
@@ -3721,6 +3726,8 @@
 	    }
 	} elsif ($command eq 'scantron_selectphase' && $perm{'mgr'}) {
 	    $request->print(&scantron_selectphase($request));
+	} elsif ($command eq 'scantron_validate' && $perm{'mgr'}) {
+	    $request->print(&scantron_validate_file($request));
 	} elsif ($command eq 'scantron_process' && $perm{'mgr'}) {
 	    $request->print(&scantron_process_students($request));
 	} elsif ($command) {