--- loncom/homework/grades.pm 2006/04/03 19:00:27 1.346
+++ 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.346 2006/04/03 19:00:27 banghart 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";