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
1 changed files with 4 additions and 3 deletions

View File

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