--- loncom/interface/lonindexer.pm 2001/06/26 21:11:18 1.12
+++ loncom/interface/lonindexer.pm 2001/07/08 18:31:10 1.13
@@ -13,6 +13,7 @@
# 06/02/2001 Scott Harrison
# 06/15/2001 Scott Harrison
# 06/26/2001 H. K. Ng
+# 07/08/2001 H. K. Ng
package Apache::lonindexer;
@@ -213,6 +214,7 @@ ENDHEADER
Keywords
Language
+
$hidden
@@ -259,18 +261,23 @@ END
my $bredir = $ENV{'form.dirPointer'};
my $toplevel;
+ my $indent = 0;
$uri = $uri.'/' if $uri !~ /.*\/$/;
- if ($uri eq "/res/" or $bredir ne "on") {
+ if ($bredir ne "on") {
$hash{'top.level'} = $uri;
$toplevel = $uri;
- } elsif ($bredir eq "on") {
- if ($hash{'top.level'} eq "/res/") {
- $toplevel = "/res/";
- } else {
- $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;
}
- my $indent = 0;
&scanDir ($r,$toplevel,$indent);
$r->print("\n");
+ return OK;
+ }
if ($filecom[1] eq "domain") {
+ $r->print (''."\n") if ($ENV{'form.dirPointer'} eq "on");
$r->print("