--- loncom/interface/portfolio.pm 2006/07/03 03:59:25 1.128 +++ loncom/interface/portfolio.pm 2006/07/05 22:29:05 1.130 @@ -1,7 +1,7 @@ # The LearningOnline Network # portfolio browser # -# $Id: portfolio.pm,v 1.128 2006/07/03 03:59:25 albertel Exp $ +# $Id: portfolio.pm,v 1.130 2006/07/05 22:29:05 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -196,7 +196,7 @@ sub display_directory { $filename =~ s/\s+$//; my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($filename); if ($version) { - $versioned{$fname} .= $version.","; + $versioned{$fname.'.'.$extension} .= $version.","; } push(@dir_lines, [$filename,$dom,$testdir,$size,$mtime,$obs]); } @@ -204,6 +204,12 @@ sub display_directory { my ($filename,$dom,$testdir,$size,$mtime,$obs) = @$line; my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($filename); if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(\d+)\.([^\.]*)$/)) { + my %version_flag; + if (exists($versioned{$filename})) { + $version_flag{$filename} = ''; + } else { + $version_flag{$filename} = ''; + } if ($dirptr&$testdir) { my $colspan='colspan="2"'; if ($select_mode eq 'true'){ @@ -211,18 +217,12 @@ sub display_directory { } $r->print('