--- loncom/interface/lonindexer.pm	2001/06/02 16:57:35	1.9
+++ loncom/interface/lonindexer.pm	2001/06/15 19:05:26	1.10
@@ -11,6 +11,7 @@
 # 05/31/2001 Scott Harrison
 # 06/01/2001 Scott Harrison
 # 06/02/2001 Scott Harrison
+# 06/15/2001 Scott Harrison
 
 package Apache::lonindexer;
 
@@ -40,7 +41,7 @@ sub handler {
     $r->send_http_header;
     return OK if $r->header_only;
     $fnum=0;
-    my $iconpath= $r->dir_config('lonIconsURL');
+    my $iconpath= $r->dir_config('lonIconsURL') . "/";
     my $domain  = $r->dir_config('lonDefDomain');
     my $role    = $r->dir_config('lonRole');
     my $loadlim = $r->dir_config('lonLoadLim');
@@ -49,7 +50,7 @@ sub handler {
     my $lonhost = $r->dir_config('lonHostID');
     my $tabdir  = $r->dir_config('lonTabDir');
 
-    my $iconpath='/res/adm/pages/indexericons/';
+#    my $iconpath='/res/adm/pages/indexericons/';
     my $fileclr='#ffffe6';
 # -------------------------------------- see if called from an interactive mode
     map {
@@ -374,7 +375,8 @@ sub display_line{
     my (@pathfn, $fndir, $fnptr);
     my $dirptr=16384;
     my $fileclr="#ffffe6";
-    my $iconpath="/res/adm/pages/indexericons/";
+    my $iconpath= $r->dir_config('lonIconsURL') . "/";
+#    my $iconpath="/res/adm/pages/indexericons/";
 
     my @filecom = split (/\&/,$line);
     my @pathcom = split (/\//,$filecom[0]);
@@ -398,7 +400,7 @@ sub display_line{
 	&begin_form ($r,$filecom[0].'/');
 	my $anchor = $filecom[0].'/';
 	$anchor =~ s/\///g;
-	$r->print ("<a name=\"".$anchor."\">\n<input src=\"".$iconpath."comp.blue.gif\"");
+	$r->print ("<a name=\"".$anchor."\">\n<input src=\"".$iconpath."server.gif\"");
 	$r->print (" name=\"$msg\" height=\"22\" type=\"image\" border=\"0\">\n");
 	$r->print("Domain - $listname $tabtag</tr></form>\n");
 	return OK;