![[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.79, 2005/03/03 05:47:22 |
|---|---|
| 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>'); |
| Line 146 sub display_directory { | Line 146 sub display_directory { |
| } else { | } else { |
| $r->print('<td><input type="checkbox" name="selectfile" value="'.$filename.'" /> | $r->print('<td><input type="checkbox" name="selectfile" value="'.$filename.'" /> |
| <a href="/adm/portfolio?rename='.$filename.'&currentpath='.$current_path.'">Rename</a></td> | <a href="/adm/portfolio?rename='.$filename.'&currentpath='.$current_path.'">Rename</a></td> |
| <td><a href="/adm/portfolio'.$current_path.$filename.'.meta">Meta</a> | <td><a href="'.$href_location.$filename.'.meta">Meta</a> |
| </td>'); | </td>'); |
| } | } |
| } | } |