loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.105, 2006/06/20 01:56:17	version 1.106, 2006/06/20 03:02:33
Line 182 sub display_directory {	Line 182 sub display_directory {
if ($version) {	if ($version) {
$versioned{$fname} .= $version.",";	$versioned{$fname} .= $version.",";
}	}
push @dir_lines, [$filename,$dom,$testdir,$size,$mtime,$obs];	push(@dir_lines, [$filename,$dom,$testdir,$size,$mtime,$obs]);
}	}
foreach my $line(@dir_lines) {	foreach my $line (@dir_lines) {
my ($filename,$dom,$testdir,$size,$mtime,$obs) = @$line;	my ($filename,$dom,$testdir,$size,$mtime,$obs) = @$line;
my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($filename);	my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($filename);
if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.)\.(\d+)\.([^\.])$/)) {	if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.)\.(\d+)\.([^\.])$/)) {