--- 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++;