--- loncom/homework/bridgetask.pm 2006/02/21 18:36:30 1.113 +++ loncom/homework/bridgetask.pm 2006/02/21 22:41:29 1.114 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.113 2006/02/21 18:36:30 albertel Exp $ +# $Id: bridgetask.pm,v 1.114 2006/02/21 22:41:29 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -480,7 +480,20 @@ sub start_Task { } elsif ($env{'form.donescreen'}) { my $title=&Apache::lonnet::gettitle(); 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; <h2>$title</h2> <p> Files submitted: $files </p>