--- 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("
\n");
+ $r->print("\n");
$r->print("\n");
$r->print("Name | \n");
$r->print("Title | \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(" ");
my $metafile = grep /^$filecom[0]\.meta\&/, @list;
my $title;
|
|
|