--- loncom/interface/portfolio.pm 2005/12/09 23:49:45 1.89 +++ loncom/interface/portfolio.pm 2006/01/25 22:56:11 1.93 @@ -143,7 +143,7 @@ sub display_directory { #$dom my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); $filename =~ s/\s+$//; - if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(.*)\.(.*)/)) { + if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(\d+)\.([^\.]*)$/)) { if ($dirptr&$testdir) { if ($select_mode eq 'true'){ $r->print(''); @@ -173,7 +173,7 @@ sub display_directory { '); } } - $r->print(''); + $r->print(''); $r->print(''. $filename.''); $r->print(''.$size.''); @@ -618,8 +618,8 @@ sub handler { &display_common($r,$current_path,$is_empty,\@dir_list); &display_directory($r,$current_path,$is_empty,\@dir_list); $r->print("\n\n"); - return OK; } + return OK; } 1; __END__