--- loncom/interface/lonindexer.pm 2004/01/26 19:55:44 1.87 +++ loncom/interface/lonindexer.pm 2004/01/29 00:45:12 1.89 @@ -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.89 2004/01/29 00:45:12 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 (''."\n") + if ($ENV{'form.dirPointer'} eq "on"); $r->print("