diff options
| author | Fred Drake <fdrake@acm.org> | 1998-07-24 22:13:37 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 1998-07-24 22:13:37 (GMT) |
| commit | 2903d03e2d5c9d76d209b35896c3bb4ccd0e1869 (patch) | |
| tree | 79e898b3bed8999d8bf1c1b1d792896dd1a7cd3a /Doc/perl/SynopsisTable.pm | |
| parent | a1cce714d0d35a1e1c553d7e196ee3d6320be609 (diff) | |
| download | cpython-2903d03e2d5c9d76d209b35896c3bb4ccd0e1869.zip cpython-2903d03e2d5c9d76d209b35896c3bb4ccd0e1869.tar.gz cpython-2903d03e2d5c9d76d209b35896c3bb4ccd0e1869.tar.bz2 | |
tohtml(): Make module names anchors.
Diffstat (limited to 'Doc/perl/SynopsisTable.pm')
| -rw-r--r-- | Doc/perl/SynopsisTable.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Doc/perl/SynopsisTable.pm b/Doc/perl/SynopsisTable.pm index 282a9dc..b391a6a 100644 --- a/Doc/perl/SynopsisTable.pm +++ b/Doc/perl/SynopsisTable.pm @@ -42,7 +42,8 @@ sub tohtml{ my $name; foreach $name (split /,/, $self->{names}) { my($key,$type,$synopsis) = $self->get($name); - $data .= "<dt><b><tt>$name</tt></b>\n<dd>$synopsis\n"; + $data .= ("<dt><b><tt><a href=\"module-$key.html\">$name</a></tt></b>" + . "\n<dd>$synopsis\n"); } $data .= "</dl>\n"; $data; |