--- loncom/interface/portfolio.pm 2006/07/04 23:52:10 1.129
+++ 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.129 2006/07/04 23:52:10 banghart Exp $
+# $Id: portfolio.pm,v 1.130 2006/07/05 22:29:05 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -204,11 +204,11 @@ 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;
+ my %version_flag;
if (exists($versioned{$filename})) {
- $version_flag = ' (*) ';
+ $version_flag{$filename} = '';
} else {
- $version_flag = '';
+ $version_flag{$filename} = '';
}
if ($dirptr&$testdir) {
my $colspan='colspan="2"';
@@ -217,7 +217,7 @@ sub display_directory {
}
$r->print('