--- loncom/homework/grades.pm 2006/05/30 12:45:36 1.359
+++ loncom/homework/grades.pm 2006/06/12 18:56:22 1.361
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.359 2006/05/30 12:45:36 www Exp $
+# $Id: grades.pm,v 1.361 2006/06/12 18:56:22 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1556,7 +1556,7 @@ sub handback_box {
$file_disp = "$name.$ext";
$file = $file_path.$file_disp;
$result.=&mt('Return commented version of [_1] to student.',
- ''.$file_disp.'');
+ ''.$file_disp.'');
$result.=''."\n";
$result.=' ';
$file_counter++;
@@ -2458,6 +2458,10 @@ sub handback_files {
$request->print(' An errror occured ('.$result.
') while trying to upload '.$newflg.'_'.$part_resp.'_returndoc'.$file_counter.' ');
} else {
+ # mark the file as read only
+ my @files = ($save_file_name);
+ my @what = ($symb,'handback');
+ &Apache::lonnet::mark_as_readonly($domain,$stuname,\@files,\@what);
my $subject = "File Handed Back by Instructor ";
my $message = "A file has been returned that was originally submitted in reponse to: ";
$message .= "".&Apache::lonnet::gettitle($symb)." ";