--- loncom/homework/grades.pm	2006/05/28 16:47:02	1.355
+++ loncom/homework/grades.pm	2006/05/29 23:45:14	1.356
@@ -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.356 2006/05/29 23:45:14 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2456,6 +2456,15 @@ sub handback_files {
                     if ($result !~ m|^/uploaded/|) {
                         $request->print('<font color="red"> An errror occured ('.$result.
                         ') while trying to upload '.$newflg.'_'.$part_resp.'_returndoc'.$file_counter.'</font><br />');
+                    } 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("<br />".$fname." will be the uploaded file name");
                     $request->print(" ".$env{'form.'.$newflg.'_'.$part_resp.'_origdoc'.$file_counter});