[LON-CAPA-cvs] cvs: loncom /interface lonindexer.pm

[albertel]

albertel		Mon Aug 11 13:27:24 2003 EDT

  Modified files:              
    /loncom/interface	lonindexer.pm 
  Log:
  - Fixes BUG#2033, can rotate the arrows at the domain level again
  
  
Index: loncom/interface/lonindexer.pm
diff -u loncom/interface/lonindexer.pm:1.72 loncom/interface/lonindexer.pm:1.73
--- loncom/interface/lonindexer.pm:1.72	Wed Aug  6 12:43:36 2003
+++ loncom/interface/lonindexer.pm	Mon Aug 11 13:27:24 2003
@@ -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 @@
 	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 @@
 	    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 @@
 	$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}) {