version 1.52, 2002/08/21 17:18:08
|
version 1.53, 2002/12/02 17:53:24
|
Line 514 sub scanDir {
|
Line 514 sub scanDir {
|
my %dupdirs = %dirs; |
my %dupdirs = %dirs; |
my @list=&get_list($r,$startdir); |
my @list=&get_list($r,$startdir); |
foreach my $line (@list) { |
foreach my $line (@list) { |
my ($strip,$dom,$foo,$testdir,$foo)=split(/\&/,$line,5); |
my ($strip,$dom,undef,$testdir,undef)=split(/\&/,$line,5); |
next if $strip =~ /.*\.meta$/; |
next if $strip =~ /.*\.meta$/; |
my (@fileparts) = split(/\./,$strip); |
my (@fileparts) = split(/\./,$strip); |
if ($hash{'display_attrs_7'} != 1) { |
if ($hash{'display_attrs_7'} != 1) { |
Line 539 sub scanDir {
|
Line 539 sub scanDir {
|
while (my ($key,$val)= each %dupdirs) { |
while (my ($key,$val)= each %dupdirs) { |
if ($key eq $compuri and $val eq "open") { |
if ($key eq $compuri and $val eq "open") { |
$diropen = "opened"; |
$diropen = "opened"; |
delete $dupdirs{key},$dirs{$key}; |
delete($dupdirs{$key}); |
|
delete($dirs{$key}); |
} |
} |
} |
} |
} |
} |
Line 625 sub match_ext {
|
Line 626 sub match_ext {
|
# ------------------------------- displays one line in appropriate table format |
# ------------------------------- displays one line in appropriate table format |
sub display_line { |
sub display_line { |
my ($r,$diropen,$line,$indent,$startdir,$hashref,@list)=@_; |
my ($r,$diropen,$line,$indent,$startdir,$hashref,@list)=@_; |
my (@pathfn, $fndir, $fnptr); |
my (@pathfn, $fndir); |
my $dirptr=16384; |
my $dirptr=16384; |
my $fileclr="#ffffe6"; |
my $fileclr="#ffffe6"; |
my $iconpath= $r->dir_config('lonIconsURL') . '/'; |
my $iconpath= $r->dir_config('lonIconsURL') . '/'; |