loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

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) {