--- loncom/interface/lonindexer.pm	2001/06/02 16:57:35	1.9
+++ loncom/interface/lonindexer.pm	2001/06/21 20:57:12	1.11
@@ -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,6 @@ sub handler {
     my $lonhost = $r->dir_config('lonHostID');
     my $tabdir  = $r->dir_config('lonTabDir');
 
-    my $iconpath='/res/adm/pages/indexericons/';
     my $fileclr='#ffffe6';
 # -------------------------------------- see if called from an interactive mode
     map {
@@ -183,9 +183,9 @@ ENDHEADER
 
     $r->print("<h2><font color=\"\#888888\">The LearningOnline With CAPA Network Directory Browser</font></h2>\n");
 
-    my $diropen = "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db";
+    my $diropendb = "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db";
 
-    if (tie(%hash,'GDBM_File',$diropen,&GDBM_WRCREAT,0640)) {
+    if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) {
 
 	if ($ENV{'form.attrs'} ne "") {
 	    for (my $i=0; $i<=5; $i++) {
@@ -256,7 +256,8 @@ END
 	    }
 	}
 
-	my $toplevel = "/res/";
+#	my $toplevel = "/res/";
+	my $toplevel = $uri;
 	my $indent = 0;
 	&scanDir ($r,$toplevel,$indent);
 
@@ -292,17 +293,17 @@ sub scanDir {
 	    $compuri = join('',$startdir,$strip,"/"); # user, dir & file having name only, i.e., w/o path
 	    $curdir = $startdir;
 	}
-	my $diropen = 0;
+	my $diropen = "closed";
 	if (($dirptr&$testdir) or ($dom =~ /^(domain|user)$/)) {
 	    while (my ($key,$val)= each %dupdirs) {
 		if ($key eq $compuri and $val eq "open") {
-		    $diropen = 1;
+		    $diropen = "opened";
 		    delete $dupdirs{key},$dirs{$key};
 		}
 	    }
 	}
 	&display_line($r,$diropen,$line,$indent,$curdir,@list);
-	&scanDir ($r,$compuri,$indent) if $diropen == 1;
+	&scanDir ($r,$compuri,$indent) if $diropen eq "opened";
     }
     $indent--;
 }
@@ -374,21 +375,19 @@ 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 @filecom = split (/\&/,$line);
     my @pathcom = split (/\//,$filecom[0]);
     my $listname = $pathcom[scalar(@pathcom)-1];
     my $fnptr = $filecom[3]&$dirptr;
     my $msg = 'View '.$filecom[0].' resources';
-    $msg = 'Close '.$filecom[0].' directory' if $diropen == 1;
+    $msg = 'Close '.$filecom[0].' directory' if $diropen eq "opened";
 
     my $tabtag="</td>";
     my $i=0;
 
     while ($i<=5) {
-#	my $key="form.attr".$i;
-#	$tabtag=join('',$tabtag,"<td bgcolor=",$fileclr,">&nbsp;</td>") if $ENV{$key} == 1;
 	$tabtag=join('',$tabtag,"<td bgcolor=",$fileclr,">&nbsp;</td>") if $hash{'display_attrs_'.$i} == 1;
 	$i++;
     }
@@ -398,8 +397,8 @@ 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 (" name=\"$msg\" height=\"22\" type=\"image\" border=\"0\">\n");
+	$r->print ('<a name="'.$anchor.'"><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;
     }
@@ -410,12 +409,9 @@ sub display_line{
 	&begin_form ($r,$curdir);
 	my $anchor = $curdir;
 	$anchor =~ s/\///g;
-#	$r->print ("<a name=\"$anchor\">\n<img src=",$iconpath,"white_space_20_22.gif border=0>\n");
-	$r->print ("<a name=\"$anchor\">\n<img src=",$iconpath,"whitespace1.gif border=0>\n");
-	$r->print ("<input src=\"$iconpath");
-	$r->print ("folder_pointer_closed.gif\"") if $diropen == 0;
-	$r->print ("folder_pointer_opened.gif\"") if $diropen == 1;
-	$r->print (" name=\"$msg\" height=\"22\" type=\"image\" border=\"0\">\n");
+	$r->print ('<a name="'.$anchor.'"><img src="'.$iconpath.'whitespace1.gif" border=0>'."\n");
+	$r->print ('<input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"'); 
+	$r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n");
 	$r->print ("<img src=",$iconpath,"quill.gif border=0>\n");
 	$r->print ("$listname $tabtag</tr></form>\n");
 	return OK;
@@ -455,7 +451,7 @@ sub display_line{
 
 	if ($indent < 11) {
 	    $r->print("<img src=",$iconpath,"whitespace",$indent,".gif border=0>\n");
-	} else {
+	} elsif ($indent >0) {
 	    my $ten = int($indent/10.);
 	    my $rem = $indent%10.0;
 	    my $count = 0;
@@ -472,10 +468,12 @@ sub display_line{
 	$r->print (" (<a href=\"javascript:openWindow('".$filelink.".meta', 'metadatafile', '400', '450', 'no', 'yes')\"; TARGET=_self>metadata</a>) ") if ($metafile == 1);
 
 	$r->print("</td>\n");
-#	$r->print("<td bgcolor=$fileclr align=right valign=bottom> ",$filecom[8]," </td>\n") if $ENV{'form.attr0'} == 1;
-	$r->print("<td bgcolor=$fileclr align=right valign=bottom> ",$filecom[8]," </td>\n") if $hash{'display_attrs_0'} == 1;
-	$r->print("<td bgcolor=$fileclr valign=bottom> ".(localtime($filecom[9]))." </td>\n") if $hash{'display_attrs_1'} == 1;
-	$r->print("<td bgcolor=$fileclr valign=bottom> ".(localtime($filecom[10]))." </td>\n") if $hash{'display_attrs_2'} == 1;
+	$r->print("<td bgcolor=$fileclr align=right valign=bottom> ",$filecom[8]," </td>\n") 
+	    if $hash{'display_attrs_0'} == 1;
+	$r->print("<td bgcolor=$fileclr valign=bottom> ".(localtime($filecom[9]))." </td>\n") 
+	    if $hash{'display_attrs_1'} == 1;
+	$r->print("<td bgcolor=$fileclr valign=bottom> ".(localtime($filecom[10]))." </td>\n") 
+	    if $hash{'display_attrs_2'} == 1;
 
 	if ($hash{'display_attrs_3'} == 1) {
 	    my $author = &Apache::lonnet::metadata($filelink,'author') if ($metafile == 1);
@@ -505,7 +503,7 @@ sub display_line{
 	$r->print("<tr>$extrafield<td bgcolor=$fileclr valign=bottom>");
 	&begin_form ($r,$curdir);
 	my $indentm1 = $indent-1;
-	if ($indentm1 < 11) {
+	if ($indentm1 < 11 and $indentm1 > 0) {
 	    $r->print("<img src=",$iconpath,"whitespace",$indentm1,".gif border=0>\n");
 	} else {
 	    my $ten = int($indentm1/10.);
@@ -517,12 +515,9 @@ sub display_line{
 	    }
 	    $r->print("<img src=",$iconpath,"whitespace",$rem,".gif border=0>\n") if $rem > 0;
 	}
-	$r->print ("<a name=\"$anchor\">\n<input src=\"$iconpath");
-	$r->print ("folder_pointer_closed.gif\"") if $diropen == 0;
-	$r->print ("folder_pointer_opened.gif\"") if $diropen == 1;
-	$r->print (" name=\"$msg\" height=\"22\" type=\"image\" border=\"0\">\n");
-	$r->print("<img src=",$iconpath,"folder_closed.gif border=0>\n") if $diropen == 0;
-	$r->print("<img src=",$iconpath,"folder_opened.gif border=0>\n") if $diropen == 1;
+	$r->print ('<a name="'.$anchor.'"><input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"');
+	$r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n");
+	$r->print("<img src=",$iconpath,"folder_$diropen.gif border=0>\n");
 	$r->print("$listname $tabtag</tr></form>\n");
     }
 
@@ -533,13 +528,13 @@ sub begin_form {
     my ($r,$uri) = @_;
     my $anchor = $uri;
     $anchor =~ s/\///g;
-    $r->print ("<form method=\"post\" name=\"dirpath\" action=\"/res/\#$anchor\" enctype=\"application/x-www-form-urlencoded\">\n");
+    $r->print ('<form method="post" name="dirpath" action="/res/#'.$anchor.'" enctype="application/x-www-form-urlencoded">'."\n");
     $r->print ("$hidden<input type=hidden name=openuri value=\"$uri\">\n");
 
-#    for (my $i=0; $i<=5; $i++) {
-#	$r->print ("<input type=hidden name=attr$i value=\"1\">\n") if $ENV{'form.attr'.$i} == 1;
-#    }
 }
 
 1;
 __END__
+
+
+