version 1.63, 2003/03/19 14:50:32
|
version 1.64, 2003/05/29 01:08:05
|
Line 666 sub display_line {
|
Line 666 sub display_line {
|
$r->print("Up $tabtag</tr></form>\n"); |
$r->print("Up $tabtag</tr></form>\n"); |
return OK; |
return OK; |
} |
} |
|
# Do we have permission to look at this? |
|
|
|
return OK if (!&Apache::lonnet::allowed('bre',$startdir.$filecom[0])); |
|
|
# display domain |
# display domain |
if ($filecom[1] eq 'domain') { |
if ($filecom[1] eq 'domain') { |
Line 723 sub display_line {
|
Line 726 sub display_line {
|
# display file |
# display file |
if ($fnptr == 0 and $filecom[3] ne '') { |
if ($fnptr == 0 and $filecom[3] ne '') { |
my $filelink = $startdir.$filecom[0]; |
my $filelink = $startdir.$filecom[0]; |
return OK if (!&Apache::lonnet::allowed('bre',$filelink)); |
|
my @file_ext = split (/\./,$listname); |
my @file_ext = split (/\./,$listname); |
my $curfext = $file_ext[-1]; |
my $curfext = $file_ext[-1]; |
if (@Omit) { |
if (@Omit) { |