version 1.128, 2006/03/29 13:24:43
|
version 1.129, 2006/03/29 14:03:08
|
Line 455 sub start_Task {
|
Line 455 sub start_Task {
|
my $files = '<ul>'; |
my $files = '<ul>'; |
foreach my $file (@files) { |
foreach my $file (@files) { |
my $url="/uploaded/$domain/$user/portfolio$file"; |
my $url="/uploaded/$domain/$user/portfolio$file"; |
if (! &Apache::lonnet::stat_file($url)) { |
$file = '<tt>'.$file.'</tt>'; |
$file = &mt('<font color="red"> Nonexistant file:</font> <tt>[_1]</tt>',$file); |
|
} else { |
|
$file = '<tt>'.$file.'</tt>'; |
|
} |
|
$files .= '<li>'.$file.'</li>'; |
$files .= '<li>'.$file.'</li>'; |
} |
} |
$files.='</ul>'; |
$files.='</ul>'; |