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

[raeburn]

raeburn		Wed Jan  7 21:33:25 2009 EDT

  Modified files:              (Branch: version_2_8_X)
    /loncom/homework	grades.pm 
  Log:
  - Backport a part of 1.542 omitted in the original backport.
  - Interface to enable the option to peform verification of scantron grading.
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.528.2.8 loncom/homework/grades.pm:1.528.2.9
--- loncom/homework/grades.pm:1.528.2.8	Tue Jan  6 21:58:06 2009
+++ loncom/homework/grades.pm	Wed Jan  7 21:33:25 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.528.2.8 2009/01/06 21:58:06 raeburn Exp $
+# $Id: grades.pm,v 1.528.2.9 2009/01/07 21:33:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6214,16 +6214,21 @@
 	}
     }
     if (!$stop) {
-	my $warning=&scantron_warning_screen('Start Grading');
-	$r->print(&mt('Validation process complete.').'<br />
-'.$warning.'
-<input type="submit" name="submit" value="'.&mt('Start Grading').'" />
-<input type="hidden" name="command" value="scantron_process" />
-');
-
+        my $warning=&scantron_warning_screen('Start Grading');
+        $r->print(&mt('Validation process complete.').'<br />'.
+                  $warning.
+                  &mt('Perform verification for each student after storage of submissions?').
+                  '&nbsp;<span class="LC_nobreak"><label>'.
+                  '<input type="radio" name="verifyrecord" value="1" />'.&mt('Yes').'</label>'.
+                  ('&nbsp;'x3).'<label>'.
+                  '<input type="radio" name="verifyrecord" value="0" checked="checked" />'.&mt('No').
+                  '</label></span><br />'.
+                  &mt('Grading will take longer if you use verification.').'<br />'.                  &mt("Alternatively, the 'Review scantron data' utility (see grading menu) can be used for all students after grading is complete.").'<br /><br />'.
+                  '<input type="submit" name="submit" value="'.&mt('Start Grading').'" />'.
+                  '<input type="hidden" name="command" value="scantron_process" />'."\n");
     } else {
-	$r->print('<input type="hidden" name="command" value="scantron_validate" />');
-	$r->print("<input type='hidden' name='validatepass' value='".$currentphase."' />");
+        $r->print('<input type="hidden" name="command" value="scantron_validate" />');
+        $r->print("<input type='hidden' name='validatepass' value='".$currentphase."' />");
     }
     if ($stop) {
 	if ($validate_phases[$currentphase] eq 'sequence') {