--- loncom/homework/grades.pm 2006/02/07 14:18:18 1.311 +++ loncom/homework/grades.pm 2006/02/13 22:11:51 1.312 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.311 2006/02/07 14:18:18 banghart Exp $ +# $Id: grades.pm,v 1.312 2006/02/13 22:11:51 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1814,6 +1814,7 @@ KEYWORDS $lastsubonly.='
'.$file.''; $lastsubonly.=' Return commented document to student. '."\n"; + $lastsubonly.=''; $lastsubonly.=''; } @@ -2224,7 +2225,6 @@ sub saveHandGrade { my @parts = split(/:/,$env{'form.partlist'.$newflg}); foreach my $new_part (@parts) { #collaborator may vary for different parts - $request->print('form.part'.$new_part.'_returndoc1'); if ($submitter && $new_part ne $part) { next; } my $dropMenu = $env{'form.GD_SEL'.$newflg.'_'.$new_part}; if ($dropMenu eq 'excused') { @@ -2305,9 +2305,10 @@ sub saveHandGrade { # 'portfolio'.$env{'form.currentpath'}); my $file_counter = 1; + my $respid = $env{'form.respid'}; while ($env{'form.part'.$new_part.'_returndoc'.$file_counter}) { my $fname=$env{'form.returndoc'.$file_counter.'.filename'}; - $newrecord{'resource.'.$new_part.'.handback'} = $env{'form.returndocorig'.$file_counter}; + $newrecord{"resource.$new_part.$respid.handback"} = $env{'form.returndocorig'.$file_counter}; $request->print("
".$fname." will be the uploaded file name"); $request->print("Will upload document".$env{'form.returndocorig'.$file_counter}); $file_counter++;