loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.197, 2006/06/29 22:57:39	version 1.198, 2006/06/30 00:32:25
Line 720 sub decideoutput {	Line 720 sub decideoutput {
}	}
my (undef,undef,$domain,$user)=&Apache::lonxml::whichuser();	my (undef,undef,$domain,$user)=&Apache::lonxml::whichuser();
foreach my $resid(@Apache::inputtags::response){	foreach my $resid(@Apache::inputtags::response){
&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".'/'.$Apache::lonhomework::history{"resource.$part.$resid.handback"}.'">Returned File</a>';	$message.='<br />';
}	my @files = split(/\s,\s/,
	$Apache::lonhomework::history{"resource.$part.$resid.handback"});
	my $file_msg;
	foreach my $file (@files) {
	$file_msg.= '<br /><a href="/uploaded/'."$domain/$user".'/'.$file.'">'.$file.'</a>';
	}
	$message .= &mt('Returned file(s): [_1]',$file_msg);
	}
}	}

if (lc($Apache::lonhomework::problemstatus) eq 'no' &&	if (lc($Apache::lonhomework::problemstatus) eq 'no' &&