|
version 1.43, 2002/06/13 15:05:16
|
version 1.44, 2002/06/20 21:22:20
|
|
Line 379 ENDHEADER
|
Line 379 ENDHEADER
|
| |
|
| # ---------------------------------------------------------------- output title |
# ---------------------------------------------------------------- output title |
| $r->print( |
$r->print( |
| '<h2><font color="#888888">The Learning<i>Online</i> Network with CAPA '. |
'<h2><font color="#339933">The Learning<i>Online</i> Network with CAPA '. |
| 'Network Directory Browser</font></h2>'."\n"); |
'Network Directory Browser</font></h2>'."\n"); |
| # ---------------------------------- get state of file attributes to be showing |
# ---------------------------------- get state of file attributes to be showing |
| if ($ENV{'form.attrs'} ne "") { |
if ($ENV{'form.attrs'} ne "") { |
|
Line 425 END
|
Line 425 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=#eeeeee>\n"); |
$r->print("<table width='100\%' border=0><tr><td bgcolor=#990404>\n"); |
| $r->print("<table width='100\%' border=0><tr>\n"); |
$r->print("<table width='100\%' border=0><tr>\n"); |
| $r->print("<td $colspan bgcolor=$titleclr><b>Name</b></td>\n"); |
$r->print("<td $colspan bgcolor=$titleclr><b>Name</b></td>\n"); |
| $r->print("<td bgcolor=$titleclr align=right><b>Size (bytes) ". |
$r->print("<td bgcolor=$titleclr align=right><b>Size (bytes) ". |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonindexer.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface