version 1.45, 2002/06/29 19:55:19
|
version 1.47, 2002/07/30 19:47:13
|
Line 426 END
|
Line 426 END
|
# $r->print(&initdebug()); |
# $r->print(&initdebug()); |
# $r->print(&writedebug("Omit:@Omit")) if (@Omit); |
# $r->print(&writedebug("Omit:@Omit")) if (@Omit); |
# $r->print(&writedebug("Only:@Only")) if (@Only); |
# $r->print(&writedebug("Only:@Only")) if (@Only); |
$r->print("<table width='100\%' border=0><tr><td bgcolor=#990404>\n"); |
$r->print("<table width='100\%' border=0><tr><td bgcolor=#777777>\n"); |
$r->print("<table width='100\%' border=0><tr bgcolor=$titleclr>\n"); |
$r->print("<table width='100\%' border=0><tr bgcolor=$titleclr>\n"); |
$r->print("<td $colspan><b>Name</b></td>\n"); |
$r->print("<td $colspan><b>Name</b></td>\n"); |
$r->print("<td><b>Title</b></td>\n") |
$r->print("<td><b>Title</b></td>\n") |
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; |