loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.355, 2006/05/28 16:47:02	version 1.356, 2006/05/29 23:45:14
Line 2456 sub handback_files {	Line 2456 sub handback_files {
if ($result !~ m\|^/uploaded/\|) {	if ($result !~ m\|^/uploaded/\|) {
$request->print('<font color="red"> An errror occured ('.$result.	$request->print('<font color="red"> An errror occured ('.$result.
') while trying to upload '.$newflg.'_'.$part_resp.'_returndoc'.$file_counter.'</font><br />');	') 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("<br />".$fname." will be the uploaded file name");
$request->print(" ".$env{'form.'.$newflg.'_'.$part_resp.'_origdoc'.$file_counter});	$request->print(" ".$env{'form.'.$newflg.'_'.$part_resp.'_origdoc'.$file_counter});