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

[www]

www		Wed May 28 21:08:05 2003 EDT

  Modified files:              
    /loncom/interface	lonindexer.pm 
  Log:
  Toward bug #1500: this might have already done the trick, but needs lots more
  testing.
  
  
Index: loncom/interface/lonindexer.pm
diff -u loncom/interface/lonindexer.pm:1.63 loncom/interface/lonindexer.pm:1.64
--- loncom/interface/lonindexer.pm:1.63	Wed Mar 19 09:50:32 2003
+++ loncom/interface/lonindexer.pm	Wed May 28 21:08:05 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.63 2003/03/19 14:50:32 ng Exp $
+# $Id: lonindexer.pm,v 1.64 2003/05/29 01:08:05 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -666,6 +666,9 @@
 	$r->print("Up $tabtag</tr></form>\n");
 	return OK;
     }
+# Do we have permission to look at this?
+
+    return OK if (!&Apache::lonnet::allowed('bre',$startdir.$filecom[0]));
 
 # display domain
     if ($filecom[1] eq 'domain') {
@@ -723,7 +726,6 @@
 # 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) {