in reply to Re: Adding Style to a table.
in thread Adding Style to a table.

What can the problem be with this code? Everything remains the same but the font resorts back to the default color black. 
$THEAD = '
<--
.thead
{
   font-size: 10pt;
   color: #99FF99;
}
-->';

$sth->execute ();
print $query->header();
print $query->start_html (-title=>'Roster of Players',
                          -style=>-code=>$THEAD);

print $query->h1({-align=>'CENTER'}, font({-color=>'9933FF'}), '1990 M
+NLIGHTNING ROSTER');

print $query->table({-ALIGN=>'CENTER', BOARDER=>'',-class=>'thead'},
   Tr({-bgcolor=>'#9933FF', -valign=>'TOP'},
   [
        th({-width=>'150'}, 'COACHING').th({-width=>'150'}, 'STAFF'),
   ]
   )
);

[download]

Replies are listed 'Best First'.
Re: Re: Re: Adding Style to a table.
by tachyon (Chancellor) on Dec 26, 2001 at 11:00 UTC

    There are three errors in your code. First <-- is not the start of an HTML comment <!-- is. Next you need to pass a hash reference to -style. Finally it is -BORDER nor BOARDER. 

    use CGI ':all';
$query = new CGI;

$THEAD = '
<!--
.thead
{
   font-size: 10pt;
   color: #99FF99;
}
-->';

print $query->header();
print $query->start_html (-title=>'Roster of Players',
                          -style=>{-code=>$THEAD});

print $query->h1({-align=>'CENTER'}, font({-color=>'9933FF'}), '1990 M
+NLIGHTNING ROSTER');

print $query->table({-ALIGN=>'CENTER', -BORDER=>'0', -class=>'thead'},
   Tr({-bgcolor=>'#9933FF', -valign=>'TOP'},
   [
        th({-width=>'150'}, 'COACHING').th({-width=>'150'}, 'STAFF'),
   ]
   )
);

    [download]

    cheers

    tachyon

    s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[reply]
[d/l]

In Section Seekers of Perl Wisdom