\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(' ');
- 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'};
@@ -207,25 +469,55 @@ 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 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);
+ my @list = qw (0);
+ &display_line ($r,'opened',$upone.'&viewOneUp',0,$upone,@list);
+ $indent = 1;
+ }
+
+# -------- recursively go through all the directories and output as appropriate
+ &scanDir ($r,$toplevel,$indent,\%hash);
+
+# ---------------------------- embed hidden information useful for group import
+ $r->print("");
+
+# -------------------------------------------------------------- end the tables
+ $r->print(' ');
+ $r->print(' | ');
- $r->print(" ");
- $r->print(" |