version 1.91, 2005/12/19 20:41:45
|
version 1.93, 2006/01/25 22:56:11
|
Line 132 sub display_directory {
|
Line 132 sub display_directory {
|
$r->print('<form method="post" action="/adm/portfolio">'); |
$r->print('<form method="post" action="/adm/portfolio">'); |
} |
} |
my $href_location="/uploaded/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path"; |
my $href_location="/uploaded/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path"; |
my $href_edit_location="/editupload/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path/"; |
my $href_edit_location="/editupload/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path"; |
foreach my $line (sort |
foreach my $line (sort |
{ |
{ |
my ($afile)=split('&',$a,2); |
my ($afile)=split('&',$a,2); |
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>'); |