--- loncom/interface/lonindexer.pm	2004/02/05 03:42:52	1.90
+++ loncom/interface/lonindexer.pm	2004/02/17 02:43:40	1.92
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.90 2004/02/05 03:42:52 taceyjo1 Exp $
+# $Id: lonindexer.pm,v 1.92 2004/02/17 02:43:40 taceyjo1 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -164,7 +164,7 @@ END
 	#       selection is made.
 	# $element is the name of the element in $formname which receives
 	#       the URL.
-	&Apache::lonxml::debug('Checking mode, form, element');
+	#&Apache::lonxml::debug('Checking mode, form, element');
 	&setvalues(\%hash,'form.mode'        ,\%ENV,'form.mode'   );
 	&setvalues(\%hash,'form.form'        ,\%ENV,'form.form'   );
 	&setvalues(\%hash,'form.element'     ,\%ENV,'form.element');
@@ -568,7 +568,7 @@ sub scanDir {
     foreach my $line (@list) {
         return if ($c->aborted());
 	#This is a kludge, sorry aboot this
-	my ($strip,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs)=split(/\&/,$line,15); 
+	my ($strip,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); 
 	next if($strip =~ /.*\.meta$/ | $obs eq '1');
 	my (@fileparts) = split(/\./,$strip);
 	if ($hash{'display_attrs_9'} != 1) {
@@ -622,8 +622,7 @@ sub get_list {
 	@list = &Apache::lonnet::dirlist($uri);
 	$hash{'dirlist_files_'.$luri} = join("\n",@list);
     }
-    @list=&match_ext($r,@list);
-    return @list;
+    return @list=&match_ext($r,@list);
 }
 
 sub initdebug {
@@ -722,9 +721,8 @@ sub display_line {
 	$r->print(&mt("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]));
+# Do we have permission to look at this? 
+	if($filecom[15] ne '1') { return OK if (!&Apache::lonnet::allowed('bre',$startdir.$filecom[0])); }
 
 # display domain
     if ($filecom[1] eq 'domain') {