[LON-CAPA-cvs] cvs: loncom /homework grades.pm

[albertel]

albertel		Mon Jun 12 18:14:30 2006 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - tiny part of bug #4817
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.362 loncom/homework/grades.pm:1.363
--- loncom/homework/grades.pm:1.362	Mon Jun 12 18:12:10 2006
+++ loncom/homework/grades.pm	Mon Jun 12 18:14:29 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.362 2006/06/12 22:12:10 albertel Exp $
+# $Id: grades.pm,v 1.363 2006/06/12 22:14:29 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2469,8 +2469,10 @@
                         $message .= " The returned file is named: <br /><strong>".$save_file_name."</strong><br />";
                         $message .= " and can be found in your portfolio space.";
                         &Apache::lonnet::logthis($message);
+			my $url = (&Apache::lonnet::decode_symb($symb))[2];
+			$url = &Apache::lonnet::declutter($url);
                         my $msgstatus = &Apache::lonmsg::user_normal_msg($stuname,$domain,
-				        $subject.' [File Returned]',$message);                    
+				        $subject.' (File Returned) ['.$url.']',$message);                    
                     }
                     $request->print("<br />".$fname." will be the uploaded file name");
                     $request->print(" ".$env{'form.'.$newflg.'_'.$part_resp.'_origdoc'.$file_counter});