--- loncom/homework/grades.pm	2003/11/07 19:23:56	1.151
+++ loncom/homework/grades.pm	2003/11/10 16:28:10	1.153
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.151 2003/11/07 19:23:56 albertel Exp $
+# $Id: grades.pm,v 1.153 2003/11/10 16:28:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1806,7 +1806,6 @@ sub processHandGrade {
 							       $ENV{'form.msgsub'},$message);
 	    }
 	    if ($ENV{'form.collaborator'.$ctr}) {
-		&Apache::lonnet::logthis('collab '.(join(':',@{ $ENV{'form.collaborator'.$ctr} })));
 		my @collabstrs;
 		if (ref($ENV{'form.collaborator'.$ctr}) eq 'ARRAY') {
 		    @collabstrs=@{$ENV{'form.collaborator'.$ctr}};
@@ -1986,7 +1985,6 @@ sub saveHandGrade {
     my %newrecord  = ();
     my ($pts,$wgt) = ('','');
     foreach (split(/:/,$ENV{'form.partlist'.$newflg})) {
-	&Apache::lonnet::logthis("-$submitter-$stuname-$part-$_");
 	#collaborator may vary for different parts
 	if ($submitter && $_ ne $part) { next; }
 	my $dropMenu = $ENV{'form.GD_SEL'.$newflg.'_'.$_};
@@ -2009,28 +2007,37 @@ sub saveHandGrade {
 	    $pts = ($ENV{'form.GD_BOX'.$newflg.'_'.$_} ne '' ? 
 		    $ENV{'form.GD_BOX'.$newflg.'_'.$_} : 
 		    $ENV{'form.RADVAL'.$newflg.'_'.$_});
-	    return 'no_score' if ($pts eq '' && $ENV{'form.GD_SEL'.$newflg.'_'.$_} eq '');
+	    if ($pts eq '' && $ENV{'form.GD_SEL'.$newflg.'_'.$_} eq '') {
+		next;
+	    }
 	    $wgt = $ENV{'form.WGT'.$newflg.'_'.$_} eq '' ? 1 : 
 		$ENV{'form.WGT'.$newflg.'_'.$_};
 	    my $partial= $pts/$wgt;
-	    next if ($partial eq $record{'resource.'.$_.'.awarded'}); #do not update score for part if not changed.
-	    $newrecord{'resource.'.$_.'.awarded'}  = $partial 
-		if ($record{'resource.'.$_.'.awarded'} ne $partial);
+	    if ($partial eq $record{'resource.'.$_.'.awarded'}) {
+		#do not update score for part if not changed.
+		next;
+	    }
+	    if ($record{'resource.'.$_.'.awarded'} ne $partial) {
+		$newrecord{'resource.'.$_.'.awarded'}  = $partial;
+	    }
 	    my $reckey = 'resource.'.$_.'.solved';
 	    if ($partial == 0) {
-		$newrecord{$reckey} = 'incorrect_by_override' 
-		    if ($record{$reckey} ne 'incorrect_by_override');
+		if ($record{$reckey} ne 'incorrect_by_override') {
+		    $newrecord{$reckey} = 'incorrect_by_override';
+		}
 	    } else {
-		$newrecord{$reckey} = 'correct_by_override' 
-		    if ($record{$reckey} ne 'correct_by_override');
+		if ($record{$reckey} ne 'correct_by_override') {
+		    $newrecord{$reckey} = 'correct_by_override';
+		}
+	    }	    
+	    if ($submitter && 
+		($record{'resource.'.$_.'.submitted_by'} ne $submitter)) {
+		$newrecord{'resource.'.$_.'.submitted_by'} = $submitter;
 	    }
-	    
-	    $newrecord{'resource.'.$_.'.submitted_by'} = $submitter 
-		if ($submitter && ($record{'resource.'.$_.'.submitted_by'} ne $submitter));
-	    $newrecord{'resource.'.$_.'.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";
+	    $newrecord{'resource.'.$_.'.regrader'}=
+		"$ENV{'user.name'}:$ENV{'user.domain'}";
 	}
     }
-
     if (scalar(keys(%newrecord)) > 0) {
 	&Apache::lonnet::cstore(\%newrecord,$symb,
 				$ENV{'request.course.id'},$domain,$stuname);