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

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 04 Oct 2005 17:02:41 -0000


albertel		Tue Oct  4 13:02:41 2005 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - BUG#4398 - regrader was not always being set
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.291 loncom/homework/grades.pm:1.292
--- loncom/homework/grades.pm:1.291	Fri Sep 30 23:27:44 2005
+++ loncom/homework/grades.pm	Tue Oct  4 13:02:41 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.291 2005/10/01 03:27:44 albertel Exp $
+# $Id: grades.pm,v 1.292 2005/10/04 17:02:41 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2835,13 +2835,14 @@
 	    my $dropMenu = $env{'form.GD_'.$user.'_'.$_.'_solved'};
 	    $score = 'excused' if (($dropMenu eq 'excused') && ($score ne 'excused'));
 
+	    $newrecord{'resource.'.$_.'.regrader'}=
+		"$env{'user.name'}:$env{'user.domain'}";
 	    if ($dropMenu eq 'reset status' &&
 		$old_score ne '') { # ignore if no previous attempts => nothing to reset
 		$newrecord{'resource.'.$_.'.tries'} = 0;
 		$newrecord{'resource.'.$_.'.solved'} = '';
 		$newrecord{'resource.'.$_.'.award'} = '';
 		$newrecord{'resource.'.$_.'.awarded'} = 0;
-		$newrecord{'resource.'.$_.'.regrader'}="$env{'user.name'}:$env{'user.domain'}";
 		$updateflag = 1;
                 if ($env{'form.GD_'.$user.'_'.$_.'_aggtries'} > 0) {
                     my $aggtries = $env{'form.GD_'.$user.'_'.$_.'_aggtries'};