Use the same names for CLASS attributes as elsewhere.

This commit is contained in:
Fred Drake 1999-07-12 16:28:50 +00:00
parent bb7eff96d4
commit f930d827bb

View file

@ -38,13 +38,14 @@ sub show{
sub tohtml{ sub tohtml{
my $self = shift; my $self = shift;
my $data = "<table>\n"; my $data = "<table class=\"synopsistable\">\n";
my $name; my $name;
foreach $name (split /,/, $self->{names}) { foreach $name (split /,/, $self->{names}) {
my($key,$type,$synopsis) = $self->get($name); my($key,$type,$synopsis) = $self->get($name);
my $link = "<a href=\"module-$key.html\">"; my $link = "<a href=\"module-$key.html\">";
$data .= (" <tr><td><b><tt>$link$name</a></tt></b></td>\n" $data .= (" <tr>"
. " <td>$synopsis</td></tr>\n"); . "<td><b><tt class=module>$link$name</a></tt></b></td>\n"
. " <td class=synopsis>$synopsis</td></tr>\n");
} }
$data .= "</table>\n"; $data .= "</table>\n";
$data; $data;