--- loncom/interface/portfolio.pm 2006/07/03 03:59:25 1.128 +++ loncom/interface/portfolio.pm 2006/07/04 23:52:10 1.129 @@ -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.129 2006/07/04 23:52:10 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 = ' (*) '; + } else { + $version_flag = ''; + } if ($dirptr&$testdir) { my $colspan='colspan="2"'; if ($select_mode eq 'true'){ @@ -211,18 +217,12 @@ sub display_directory { } $r->print('