--- loncom/homework/grades.pm 2006/04/02 00:17:26 1.345
+++ loncom/homework/grades.pm 2006/04/03 20:45:38 1.347
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.345 2006/04/02 00:17:26 bowersj2 Exp $
+# $Id: grades.pm,v 1.347 2006/04/03 20:45:38 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1517,7 +1517,10 @@ sub handback_box {
next if (!@$files);
my $file_counter = 1;
foreach my $file (@$files) {
- my ($file_disp) = ($file =~ m|.+/(.+)$|);
+ my ($file_path, $file_disp) = ($file =~ m|(.+/)(.+)$|);
+ my ($name,$version,$ext) = &file_name_version_ext($file_disp);
+ $file_disp = "$name.$ext";
+ $file = $file_path.$file_disp;
$result.=&mt('Return commented version of [_1] to student.',
''.$file_disp.'');
$result.=''."\n";
@@ -2326,6 +2329,7 @@ sub saveHandGrade {
my $partial= $pts/$wgt;
if ($partial eq $record{'resource.'.$new_part.'.awarded'}) {
#do not update score for part if not changed.
+ &handback_files($request,$symb,$stuname,$domain,$newflg,$new_part,\%newrecord);
next;
} else {
push @parts_graded, $new_part;