--- loncom/interface/lonindexer.pm	2002/06/29 19:55:19	1.45
+++ loncom/interface/lonindexer.pm	2002/07/30 19:47:13	1.47
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.45 2002/06/29 19:55:19 ng Exp $
+# $Id: lonindexer.pm,v 1.47 2002/07/30 19:47:13 ng Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -426,7 +426,7 @@ END
 #        $r->print(&initdebug());
 #        $r->print(&writedebug("Omit:@Omit")) if (@Omit);
 #        $r->print(&writedebug("Only:@Only")) if (@Only);
-        $r->print("<table width='100\%' border=0><tr><td bgcolor=#990404>\n");
+        $r->print("<table width='100\%' border=0><tr><td bgcolor=#777777>\n");
 	$r->print("<table width='100\%' border=0><tr bgcolor=$titleclr>\n");
 	$r->print("<td $colspan><b>Name</b></td>\n");
 	$r->print("<td><b>Title</b></td>\n") 
@@ -723,6 +723,8 @@ sub display_line {
 
 # display file
     if ($fnptr == 0 and $filecom[3] ne '') {
+	my $filelink = $startdir.$filecom[0];
+	return OK if (!&Apache::lonnet::allowed('bre',$filelink));
 	my @file_ext = split (/\./,$listname);
 	my $curfext = $file_ext[-1];
         if (@Omit) {
@@ -740,7 +742,6 @@ sub display_line {
 	$iconname = $curfext.".gif" unless
 	    (!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn');
 	#
-	my $filelink = $startdir.$filecom[0];
 	$r->print("<tr bgcolor=$fileclr><td nowrap valign='bottom'>");
 	my $metafile = grep /^$filecom[0]\.meta\&/, @list;
 	my $title;