Return to portfolio.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.92, 2005/12/19 23:19:18 | version 1.93, 2006/01/25 22:56:11 |
---|---|
Line 143 sub display_directory { | Line 143 sub display_directory { |
#$dom | #$dom |
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); | my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); |
$filename =~ s/\s+$//; | $filename =~ s/\s+$//; |
if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(.*)\.(.*)/)) { | if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(\d+)\.([^\.]*)$/)) { |
if ($dirptr&$testdir) { | if ($dirptr&$testdir) { |
if ($select_mode eq 'true'){ | if ($select_mode eq 'true'){ |
$r->print('<tr bgcolor="#FFAA99"><td><img src="'.$iconpath.'folder_closed.gif"></td>'); | $r->print('<tr bgcolor="#FFAA99"><td><img src="'.$iconpath.'folder_closed.gif"></td>'); |