|
version 1.113, 2006/02/21 18:36:30
|
version 1.114, 2006/02/21 22:41:29
|
|
Line 480 sub start_Task {
|
Line 480 sub start_Task {
|
| } elsif ($env{'form.donescreen'}) { |
} elsif ($env{'form.donescreen'}) { |
| my $title=&Apache::lonnet::gettitle(); |
my $title=&Apache::lonnet::gettitle(); |
| my @files=split(',',$Apache::lonhomework::history{'resource.'.$version.'.0.bridgetask.portfiles'}); |
my @files=split(',',$Apache::lonhomework::history{'resource.'.$version.'.0.bridgetask.portfiles'}); |
| my $files='<ul><li>'.join('</li><li>',@files).'</li></ul>'; |
my (undef,undef,$domain,$user)= |
| |
&Apache::lonxml::whichuser(); |
| |
my $files = '<ul>'; |
| |
foreach my $file (@files) { |
| |
my $url="/uploaded/$domain/$user/portfolio$file"; |
| |
if (! &Apache::lonnet::stat_file($url)) { |
| |
$file = &mt('<font color="red"> Nonexistant file:</font> <tt>[_1]</tt>',$file); |
| |
} else { |
| |
$file = '<tt>'.$file.'</tt>'; |
| |
} |
| |
$files .= '<li>'.$file.'</li>'; |
| |
} |
| |
$files.='</ul>'; |
| |
|
| $result.=<<DONESCREEN; |
$result.=<<DONESCREEN; |
| <h2>$title</h2> |
<h2>$title</h2> |
| <p> Files submitted: $files </p> |
<p> Files submitted: $files </p> |
![[BACK]](/icons/back.gif){kind=icon}
Return to bridgetask.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework