loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.208, 2006/10/12 16:28:21	version 1.209, 2006/10/17 15:11:11
Line 462 sub show_past_portfile_submission {	Line 462 sub show_past_portfile_submission {
}	}
my (@file_list,@bad_file_list);	my (@file_list,@bad_file_list);
foreach my $file (split(/\s,\s/,&unescape($Apache::lonhomework::history{"resource.$part.$id.portfiles"}))) {	foreach my $file (split(/\s,\s/,&unescape($Apache::lonhomework::history{"resource.$part.$id.portfiles"}))) {
my (undef,undef,$domain,$user)=&Apache::lonxml::whichuser();	my (undef,undef,$domain,$user)=&Apache::lonnet::whichuser();
my $url="/uploaded/$domain/$user/portfolio$file";	my $url="/uploaded/$domain/$user/portfolio$file";
my $icon=&Apache::loncommon::icon($url);	my $icon=&Apache::loncommon::icon($url);
push(@file_list,'<a href="'.$url.'"><img src="'.$icon.	push(@file_list,'<a href="'.$url.'"><img src="'.$icon.
Line 753 sub decideoutput {	Line 753 sub decideoutput {
$message = &mt("Unknown message").": $award";	$message = &mt("Unknown message").": $award";
$button=1;	$button=1;
}	}
my (undef,undef,$domain,$user)=&Apache::lonxml::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 />';	$message.='<br />';