summaryrefslogtreecommitdiffstats
path: root/Doc/perl/SynopsisTable.pm
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>1998-07-29 04:45:23 (GMT)
committerFred Drake <fdrake@acm.org>1998-07-29 04:45:23 (GMT)
commitd05177fa848f0cae64275deda3814e6a18af5e05 (patch)
tree9dc9cb4f93958c9701fac6631831c08372fa996c /Doc/perl/SynopsisTable.pm
parentd19b9d6c07a5aa11b74ae28067e3454ea2f5a59f (diff)
downloadcpython-d05177fa848f0cae64275deda3814e6a18af5e05.zip
cpython-d05177fa848f0cae64275deda3814e6a18af5e05.tar.gz
cpython-d05177fa848f0cae64275deda3814e6a18af5e05.tar.bz2
tohtml(): Use a table instead of a definition list for module synopses.
Diffstat (limited to 'Doc/perl/SynopsisTable.pm')
-rw-r--r--Doc/perl/SynopsisTable.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/Doc/perl/SynopsisTable.pm b/Doc/perl/SynopsisTable.pm
index b391a6a..c4dc0dd 100644
--- a/Doc/perl/SynopsisTable.pm
+++ b/Doc/perl/SynopsisTable.pm
@@ -38,14 +38,15 @@ sub show{
sub tohtml{
my $self = shift;
- my $data = "<dl>\n";
+ my $data = "<table>\n";
my $name;
foreach $name (split /,/, $self->{names}) {
my($key,$type,$synopsis) = $self->get($name);
- $data .= ("<dt><b><tt><a href=\"module-$key.html\">$name</a></tt></b>"
- . "\n<dd>$synopsis\n");
+ 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 .= "</dl>\n";
+ $data .= "</table>\n";
$data;
}