--- loncom/interface/lonindexer.pm	2004/01/26 19:55:44	1.87
+++ loncom/interface/lonindexer.pm	2004/01/27 16:35:37	1.88
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.87 2004/01/26 19:55:44 www Exp $
+# $Id: lonindexer.pm,v 1.88 2004/01/27 16:35:37 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -511,9 +511,12 @@ END
 	my $indent = 0;
 	$uri = $uri.'/' if $uri !~ /.*\/$/;
 
-
-	$hash{'top.level'} = $uri;
-	$toplevel = $uri;
+ 	if ($ENV{'form.dirPointer'} 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/'){
@@ -725,6 +728,8 @@ sub display_line {
 
 # display domain
     if ($filecom[1] eq 'domain') {
+ 	$r->print ('<input type="hidden" name="dirPointer" value="on">'."\n")
+ 	    if ($ENV{'form.dirPointer'} eq "on");
 	$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield");
 	$r->print("<td>");
 	&begin_form ($r,$filecom[0]);
@@ -1009,6 +1014,7 @@ sub begin_form {
 	       'enctype="application/x-www-form-urlencoded">'."\n");
     $r->print ('<input type="hidden" name="openuri" value="'.$uri.'">'.
 	       "\n");
+    $r->print ('<input type="hidden" name="dirPointer" value="on">'."\n");
     $dnum++;
 }