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) ". |