--- loncom/homework/inputtags.pm 2015/03/18 12:53:24 1.333 +++ loncom/homework/inputtags.pm 2015/03/19 08:40:38 1.333.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # input definitons # -# $Id: inputtags.pm,v 1.333 2015/03/18 12:53:24 raeburn Exp $ +# $Id: inputtags.pm,v 1.333.2.1 2015/03/19 08:40:38 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -640,7 +640,7 @@ sub file_selector { my $current_files_display = ¤t_file_submissions($part,$id); my $addfiles; if ($current_files_display) { - $result .= &Apache::lonhtmlcommon::row_title(&mt('Files currently selected for submission')). + $result .= &Apache::lonhtmlcommon::row_title(&mt('Currently submitted files')). $current_files_display. &Apache::lonhtmlcommon::row_closure(); $addfiles = &mt('Submit other file(s)'); @@ -698,15 +698,6 @@ sub current_file_submissions { my $uploadedfile=$Apache::lonhomework::history{"resource.$part.$id.uploadedfile"}; my $portfiles=$Apache::lonhomework::history{"resource.$part.$id.portfiles"}; return if (($uploadedfile eq '') && ($portfiles !~/[^\s]/)); - my @unversioned; - foreach my $file (split(/\s*,\s*/,&unescape($portfiles))) { - my ($path,$name) = ($file =~ m{^(.*/)([^/]+)$}); - my ($origname,$version,$ext) = &Apache::lonnet::file_name_version_ext($name); - unless ($version) { - push(@unversioned,$file); - } - } - return if (!@unversioned); my $header = &portpath_popup_js(). &Apache::loncommon::start_data_table(). &Apache::loncommon::start_data_table_header_row(); @@ -717,7 +708,7 @@ sub current_file_submissions { '