loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.195, 2006/06/09 16:27:28	version 1.197, 2006/06/29 22:57:39
Line 455 sub file_selector {	Line 455 sub file_selector {
}	}
$result.=&mt("Portfolio files previously selected: <strong>[_1]</strong>",join(', ',@filelist));	$result.=&mt("Portfolio files previously selected: <strong>[_1]</strong>",join(', ',@filelist));
if (@bad_file_list) {	if (@bad_file_list) {
$result.='<br />'.&mt('<font color="red">These file(s) don\'t exist:</font> <strong>[_1]</strong>',join(', ',@bad_file_list));	$result.='<br />'.&mt('<span class="LC_error">These file(s) don\'t exist:</span> <span class="LC_filename">[_1]</span>',join(', ',@bad_file_list));
}	}
}	}
}	}
Line 722 sub decideoutput {	Line 722 sub decideoutput {
foreach my $resid(@Apache::inputtags::response){	foreach my $resid(@Apache::inputtags::response){
&Apache::lonnet::logthis("handback is ".$Apache::lonhomework::history{"resource.$part.$resid.handback"});	&Apache::lonnet::logthis("handback is ".$Apache::lonhomework::history{"resource.$part.$resid.handback"});
if ($Apache::lonhomework::history{"resource.$part.$resid.handback"}) {	if ($Apache::lonhomework::history{"resource.$part.$resid.handback"}) {
$message.= '<br /><a href="/uploaded/'."$domain/$user".'/portfolio/'.$Apache::lonhomework::history{"resource.$part.$resid.handback"}.'">Returned File</a>';	$message.= '<br /><a href="/uploaded/'."$domain/$user".'/'.$Apache::lonhomework::history{"resource.$part.$resid.handback"}.'">Returned File</a>';
}	}
}	}