version 1.89, 2005/12/09 23:49:45
|
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>'); |
Line 173 sub display_directory {
|
Line 173 sub display_directory {
|
</td>'); |
</td>'); |
} |
} |
} |
} |
$r->print('<td><img src="'.$iconpath.'unknown.gif"></td>'); |
$r->print('<td><img src="'.&Apache::loncommon::icon($filename).'"></td>'); |
$r->print('<td><a href="'.$href_location.$filename.'">'. |
$r->print('<td><a href="'.$href_location.$filename.'">'. |
$filename.'</a></td>'); |
$filename.'</a></td>'); |
$r->print('<td>'.$size.'</td>'); |
$r->print('<td>'.$size.'</td>'); |
Line 618 sub handler {
|
Line 618 sub handler {
|
&display_common($r,$current_path,$is_empty,\@dir_list); |
&display_common($r,$current_path,$is_empty,\@dir_list); |
&display_directory($r,$current_path,$is_empty,\@dir_list); |
&display_directory($r,$current_path,$is_empty,\@dir_list); |
$r->print("</body>\n</html>\n"); |
$r->print("</body>\n</html>\n"); |
return OK; |
|
} |
} |
|
return OK; |
} |
} |
1; |
1; |
__END__ |
__END__ |