--- loncom/interface/lonindexer.pm	2003/08/06 16:43:36	1.72
+++ loncom/interface/lonindexer.pm	2003/08/11 17:27:24	1.73
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.72 2003/08/06 16:43:36 albertel Exp $
+# $Id: lonindexer.pm,v 1.73 2003/08/11 17:27:24 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -556,6 +556,7 @@ sub scanDir {
 	if ($dom eq 'domain') {
 	    # dom list has full path /res/<domain name>/ already
 	    $curdir='';
+	    $compuri = (split(/\&/,$line))[0];
 	} else {
 	    # user, dir & file have name only, i.e., w/o path
 	    $compuri = join('',$startdir,$strip,'/');
@@ -705,8 +706,8 @@ sub display_line {
 	    if ($ENV{'form.dirPointer'} eq "on");
 	$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield");
 	$r->print("<td>");
-	&begin_form ($r,$filecom[0].'/');
-	my $anchor = $filecom[0].'/';
+	&begin_form ($r,$filecom[0]);
+	my $anchor = $filecom[0];
 	$anchor =~ s/\///g;
 	$r->print ('<a name="'.$anchor.'">');
 	$r->print ('<input type="hidden" name="acts" value="">');
@@ -715,7 +716,7 @@ sub display_line {
 	$r->print (' name="'.$msg.'" height="22" type="image" border="0">'.
 		   "\n");
 	$r->print ('<a href="javascript:gothere(\''.$filecom[0].
-		   '/\')"><img src="'.$iconpath.'server.gif"');
+		   '\')"><img src="'.$iconpath.'server.gif"');
 	$r->print (' border="0" /></a>'."\n");
 	$r->print ("Domain - $listname ");
 	if ($Apache::lonnet::domaindescription{$listname}) {