--- loncom/homework/inputtags.pm 2005/03/31 21:24:29 1.160
+++ loncom/homework/inputtags.pm 2005/03/31 21:32:52 1.162
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# input definitons
#
-# $Id: inputtags.pm,v 1.160 2005/03/31 21:24:29 albertel Exp $
+# $Id: inputtags.pm,v 1.162 2005/03/31 21:32:52 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -306,8 +306,11 @@ sub file_selector {
if (!$uploadedfiletypes) { return ''; }
my $result;
- $result.='
'.
- &mt('Allowed filetypes: [_1]',$uploadedfiletypes).' ';
+ $result.=' |
';
+ if ($uploadedfiletypes ne '*') {
+ $result.=
+ &mt('Allowed filetypes: [_1]',$uploadedfiletypes).' ';
+ }
if ($which eq 'uploadonly' || $which eq 'both') {
$result.=&mt('Submit a file: (only one file can be uploaded)').
' '.
' ';
if ($Apache::lonhomework::history{"resource.$part.$id.portfiles"}=~/[^\s]/){
- my $filelist;
+ my @filelist;
foreach my $file (split(',',&Apache::lonnet::unescape($Apache::lonhomework::history{"resource.$part.$id.portfiles"}))) {
my (undef,undef,$domain,$user)=&Apache::lonxml::whichuser();
my $url="/uploaded/$domain/$user/portfolio$file";
my $icon=&Apache::loncommon::icon($url);
- $filelist.=''.$file.'';
+ push(@filelist,''.$file.'');
}
- $result.=&mt("Portfolio files previously selected: [_1]",$filelist);
+ $result.=&mt("Portfolio files previously selected: [_1]",join(', ',@filelist));
}
}
$result.=' |
';