loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.253, 2008/12/11 14:52:30	version 1.254, 2008/12/15 20:24:53
Line 894 sub decideoutput {	Line 894 sub decideoutput {
my (undef,undef,$domain,$user)=&Apache::lonnet::whichuser();	my (undef,undef,$domain,$user)=&Apache::lonnet::whichuser();
foreach my $resid(@Apache::inputtags::response){	foreach my $resid(@Apache::inputtags::response){
if ($Apache::lonhomework::history{"resource.$part.$resid.handback"}) {	if ($Apache::lonhomework::history{"resource.$part.$resid.handback"}) {
$message.='<br />';	if ($target eq 'tex') {
	$message.= "\\\\\n";
	} else {
	$message.='<br />';
	}
my @files = split(/\s,\s/,	my @files = split(/\s,\s/,
$Apache::lonhomework::history{"resource.$part.$resid.handback"});	$Apache::lonhomework::history{"resource.$part.$resid.handback"});
my $file_msg;	my $file_msg;
foreach my $file (@files) {	foreach my $file (@files) {
$file_msg.= '<br /><a href="/uploaded/'."$domain/$user".'/'.$file.'">'.$file.'</a>';	if ($target eq 'tex') {
	$file_msg.= "\\\\\n".$file;
	} else {
	$file_msg.= '<br /><a href="/uploaded/'."$domain/$user".'/'.$file.'">'.$file.'</a>';
	}
}	}
$message .= &mt('Returned file(s): [_1]',$file_msg);	$message .= &mt('Returned file(s): [_1]',$file_msg);
	if ($target eq 'tex') {
	$message.= "\\\\\n";
	} else {
	$message.='<br />';
	}
}	}
}	}