version 1.356, 2006/05/29 23:45:14
|
version 1.358, 2006/05/30 00:15:04
|
Line 2458 sub handback_files {
|
Line 2458 sub handback_files {
|
') 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 { |
} else { |
my $subject = "File Handed Back by Instructor "; |
my $subject = "File Handed Back by Instructor "; |
my $message = "A file has been returned that was originally submitted in reponse to: "; |
my $message = "A file has been returned that was originally submitted in reponse to: <br />"; |
$message .= &Apache::lonnet::gettitle($symb); |
$message .= "<strong>".&Apache::lonnet::gettitle($symb)."</strong><br />"; |
$message .= " The returned file is named ".$save_file_name; |
$message .= " The returned file is named: <br /><strong>".$save_file_name."</strong><br />"; |
$message .= " and can be found in your portfolio space."; |
$message .= " and can be found in your portfolio space."; |
&Apache::lonnet::logthis($message); |
&Apache::lonnet::logthis($message); |
my $msgstatus = &Apache::lonmsg::user_normal_msg($stuname,$domain, |
my $msgstatus = &Apache::lonmsg::user_normal_msg($stuname,$domain, |
Line 5102 sub scantron_validate_sequence {
|
Line 5102 sub scantron_validate_sequence {
|
my @resources= |
my @resources= |
$navmap->retrieveResources($map,\&scantron_filter_not_exam,1,0); |
$navmap->retrieveResources($map,\&scantron_filter_not_exam,1,0); |
if (@resources) { |
if (@resources) { |
$r->print("<p>".&mt('Some resource in the sequece currently are not set to exam mode. Grading these resources currently may not work correctly.')."</p>"); |
$r->print("<p>".&mt('Some resources in the sequence currently are not set to exam mode. Grading these resources currently may not work correctly.')."</p>"); |
return (1,$currentphase); |
return (1,$currentphase); |
} |
} |
} |
} |