--- loncom/homework/inputtags.pm 2005/03/31 21:24:29 1.160
+++ loncom/homework/inputtags.pm 2005/03/31 21:30:54 1.161
@@ -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.161 2005/03/31 21:30:54 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -335,15 +335,15 @@ sub file_selector {
''.
'
';
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.='';