--- loncom/homework/grades.pm 2007/05/02 01:17:37 1.398 +++ loncom/homework/grades.pm 2007/06/13 17:20:12 1.399.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.398 2007/05/02 01:17:37 albertel Exp $ +# $Id: grades.pm,v 1.399.2.1 2007/06/13 17:20:12 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1959,8 +1959,8 @@ KEYWORDS ($env{'form.lastSub'} eq 'hdgrade' && $$handgrade{$$part[0].'_'.$$part[1]} eq 'yes')) { my $display_part=&get_display_part($partid,$symb); - $lastsubonly.='Debug -'.'Part: '. - $display_part.' ( hhhh ID '.$respid. + $lastsubonly.='Part: '. + $display_part.' ( ID '.$respid. ' )   '; my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record); if (@$files) { @@ -3239,7 +3239,7 @@ sub editgrades { my $usec=$classlist->{"$uname:$udom"}[5]; if (!&canmodify($usec)) { my $numcols=scalar(@partid)*4+2; - $noupdate.=$line."Not allowed to modify student"; + $noupdate.=$line."Not allowed to modify student"; next; } my %aggregate = ();