![[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.77, 2005/02/21 02:20:12 | version 1.78, 2005/02/25 18:05:29 |
|---|---|
| Line 122 sub display_directory { | Line 122 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 '..')) { | if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ )) { |
| 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>'); |