--- loncom/homework/grades.pm 2006/05/28 16:47:02 1.355 +++ loncom/homework/grades.pm 2006/05/30 00:01:28 1.357 @@ -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.357 2006/05/30 00:01:28 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); } }