loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.46, 2002/07/02 21:08:24	version 1.47, 2002/07/30 19:47:13
Line 723 sub display_line {	Line 723 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];
	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) {
Line 740 sub display_line {	Line 742 sub display_line {
$iconname = $curfext.".gif" unless	$iconname = $curfext.".gif" unless
(!defined($embstyle) \|\| $embstyle eq 'unk' \|\| $embstyle eq 'hdn');	(!defined($embstyle) \|\| $embstyle eq 'unk' \|\| $embstyle eq 'hdn');
#	#
my $filelink = $startdir.$filecom[0];
$r->print("<tr bgcolor=$fileclr><td nowrap valign='bottom'>");	$r->print("<tr bgcolor=$fileclr><td nowrap valign='bottom'>");
my $metafile = grep /^$filecom[0]\.meta\&/, @list;	my $metafile = grep /^$filecom[0]\.meta\&/, @list;
my $title;	my $title;