--- loncom/homework/grades.pm 2006/05/28 16:47:02 1.355
+++ loncom/homework/grades.pm 2006/05/30 00:15:04 1.358
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.355 2006/05/28 16:47:02 banghart Exp $
+# $Id: grades.pm,v 1.358 2006/05/30 00:15:04 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2456,6 +2456,15 @@ sub handback_files {
if ($result !~ m|^/uploaded/|) {
$request->print(' An errror occured ('.$result.
') while trying to upload '.$newflg.'_'.$part_resp.'_returndoc'.$file_counter.'
');
+ } else {
+ 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)."
";
+ $message .= " The returned file is named:
".$save_file_name."
";
+ $message .= " and can be found in your portfolio space.";
+ &Apache::lonnet::logthis($message);
+ my $msgstatus = &Apache::lonmsg::user_normal_msg($stuname,$domain,
+ $subject.' [File Returned]',$message);
}
$request->print("
".$fname." will be the uploaded file name");
$request->print(" ".$env{'form.'.$newflg.'_'.$part_resp.'_origdoc'.$file_counter});
@@ -5093,7 +5102,7 @@ sub scantron_validate_sequence {
my @resources=
$navmap->retrieveResources($map,\&scantron_filter_not_exam,1,0);
if (@resources) {
- $r->print("
".&mt('Some resource in the sequece currently are not set to exam mode. Grading these resources currently may not work correctly.')."
"); + $r->print("".&mt('Some resources in the sequence currently are not set to exam mode. Grading these resources currently may not work correctly.')."
"); return (1,$currentphase); } }