--- 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('