--- loncom/interface/lonindexer.pm 2004/02/05 03:47:04 1.91 +++ 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.91 2004/02/05 03:47:04 taceyjo1 Exp $ +# $Id: lonindexer.pm,v 1.92 2004/02/17 02:43:40 taceyjo1 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -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) { @@ -721,9 +721,8 @@ sub display_line { $r->print(&mt("Up")." $tabtag\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') {