diff options
| -rw-r--r-- | Doc/perl/SynopsisTable.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Doc/perl/SynopsisTable.pm b/Doc/perl/SynopsisTable.pm index 6a03dd2..9e528ab 100644 --- a/Doc/perl/SynopsisTable.pm +++ b/Doc/perl/SynopsisTable.pm @@ -52,14 +52,18 @@ sub show{ sub tohtml{ my $self = shift; - my $data = "<table class='synopsistable'>\n"; + my $oddrow = 1; + my $data = "<table class='synopsistable' valign='baseline'>\n"; my $name; foreach $name (split /,/, $self->{names}) { my($key,$type,$synopsis) = $self->get($name); my $link = "<a href='module-$key.html'>"; - $data .= (' <tr>' + $data .= (' <tr' + . ($oddrow ? " class='oddrow'>\n " : '>') . "<td><b><tt class='module'>$link$name</a></tt></b></td>\n" + . " <td>\ </td>\n" . " <td class='synopsis'>$synopsis</td></tr>\n"); + $oddrow = !$oddrow; } $data .= "</table>\n"; $data; |