![[BACK]](/icons/back.gif){kind=icon}
Return to portfolio.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
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>'); |