\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(" ");
+# ----------------- output starting row to the indexed file/directory hierarchy
+ my $titleclr="#ddffff";
+# $r->print(&initdebug());
+# $r->print(&writedebug("Omit:@Omit")) if (@Omit);
+# $r->print(&writedebug("Only:@Only")) if (@Only);
+ $r->print("\n");
+ $r->print("\n");
+ $r->print("Name | \n");
+ $r->print("Title | \n")
+ if ($hash{'display_attrs_0'} == 1);
+ $r->print("Size (bytes) ".
+ " | \n") if ($hash{'display_attrs_1'} == 1);
+ $r->print("Last accessed | \n")
+ if ($hash{'display_attrs_2'} == 1);
+ $r->print("Last modified | \n")
+ if ($hash{'display_attrs_3'} == 1);
+ $r->print("Author(s) | \n")
+ if ($hash{'display_attrs_4'} == 1);
+ $r->print("Keywords | \n")
+ if ($hash{'display_attrs_5'} == 1);
+ $r->print("Language | \n")
+ if ($hash{'display_attrs_6'} == 1);
+ $r->print("Resource | \n")
+ if ($hash{'display_attrs_7'} == 1);
+ $r->print(' ');
- map {
+# ----------------- read in what directories have previously been set to "open"
+ foreach (keys %hash) {
if ($_ =~ /^diropen_status_/) {
my $key = $_;
$key =~ s/^diropen_status_//;
$dirs{$key} = $hash{$_};
}
- } keys %hash;
+ }
if ($ENV{'form.openuri'}) { # take care of review and refresh options
my $uri=$ENV{'form.openuri'};
@@ -263,14 +467,17 @@ END
my $toplevel;
my $indent = 0;
$uri = $uri.'/' if $uri !~ /.*\/$/;
- if ($bredir ne "on") {
+
+ if ($bredir ne 'on') {
$hash{'top.level'} = $uri;
$toplevel = $uri;
} else {
$toplevel = $hash{'top.level'};
}
- if ($toplevel ne "/res/"){
+
+# -------------------------------- if not at top level, provide an uplink arrow
+ if ($toplevel ne '/res/'){
my (@uri_com) = split(/\//,$uri);
pop @uri_com;
my $upone = join('/',@uri_com);
@@ -278,24 +485,41 @@ END
&display_line ($r,'opened',$upone.'&viewOneUp',0,$upone,@list);
$indent = 1;
}
- &scanDir ($r,$toplevel,$indent);
+
+# -------- recursively go through all the directories and output as appropriate
+ &scanDir ($r,$toplevel,$indent,\%hash);
+# ---------------------------- embed hidden information useful for group import
$r->print("");
- $r->print(" ");
- $r->print(" | ");
- $r->print("
|