\n");
- $r->print("\n");
- $r->print("Name | \n");
- $r->print("Size (bytes) | \n") if ($hash{'display_attrs_0'} == 1);
- $r->print("Last accessed | \n") if ($hash{'display_attrs_1'} == 1);
- $r->print("Last modified | \n") if ($hash{'display_attrs_2'} == 1);
- $r->print("Author(s) | \n") if ($hash{'display_attrs_3'} == 1);
- $r->print("Keywords | \n") if ($hash{'display_attrs_4'} == 1);
- $r->print("Language | \n") if ($hash{'display_attrs_5'} == 1);
- $r->print(" ");
+ my $titleclr="#ddffff";
+ $r->print("\n");
+ $r->print("\n");
+ $r->print("Name | \n");
+ $r->print("Size (bytes) | \n") if ($hash{'display_attrs_0'} == 1);
+ $r->print("Last accessed | \n") if ($hash{'display_attrs_1'} == 1);
+ $r->print("Last modified | \n") if ($hash{'display_attrs_2'} == 1);
+ $r->print("Author(s) | \n") if ($hash{'display_attrs_3'} == 1);
+ $r->print("Keywords | \n") if ($hash{'display_attrs_4'} == 1);
+ $r->print("Language | \n") if ($hash{'display_attrs_5'} == 1);
+ $r->print(" ");
map {
if ($_ =~ /^diropen_status_/) {
@@ -207,11 +284,30 @@ END
$dirs{$uri} = 'open';
}
}
-
- my $toplevel = "/res/";
+
+ my $bredir = $ENV{'form.dirPointer'};
+ my $toplevel;
my $indent = 0;
- &scanDir ($r,$toplevel,$indent);
+ $uri = $uri.'/' if $uri !~ /.*\/$/;
+ if ($bredir ne "on") {
+ $hash{'top.level'} = $uri;
+ $toplevel = $uri;
+ } else {
+ $toplevel = $hash{'top.level'};
+ }
+ if ($toplevel ne "/res/"){
+ my (@uri_com) = split(/\//,$uri);
+ pop @uri_com;
+ my $upone = join('/',@uri_com);
+ my @list = qw (0);
+ &display_line ($r,'opened',$upone.'&viewOneUp',0,$upone,@list);
+ $indent = 1;
+ }
+ &scanDir ($r,$toplevel,$indent);
+
+ $r->print("");
$r->print(" ");
$r->print(" | ");
$r->print("
|