diff options
| author | Fred Drake <fdrake@acm.org> | 1998-12-22 18:02:25 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 1998-12-22 18:02:25 (GMT) |
| commit | 2eff3c5273a686b911f2b1ac968654b4315b8e25 (patch) | |
| tree | 612d68a6907b6dca8350d7b49ff6a3ee0aa91fee /Doc/perl | |
| parent | 782c973cb9c72e86f51ef5844d6c86da2ec46205 (diff) | |
| download | cpython-2eff3c5273a686b911f2b1ac968654b4315b8e25.zip cpython-2eff3c5273a686b911f2b1ac968654b4315b8e25.tar.gz cpython-2eff3c5273a686b911f2b1ac968654b4315b8e25.tar.bz2 | |
do_cmd_rfc(): Make the "RFC ###" a hyperlink to the master RFC
repository.
Diffstat (limited to 'Doc/perl')
| -rw-r--r-- | Doc/perl/python.perl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index bffd46f..8b0ee66 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -193,11 +193,12 @@ sub do_cmd_manpage{ sub do_cmd_rfc{ local($_) = @_; my($rfcnumber,$br_id) = next_argument(); - + my $href = + "http://info.internet.isi.edu/in-notes/rfc/files/rfc$rfcnumber.txt"; # Save the reference my $nstr = gen_index_id("RFC!RFC $rfcnumber", ''); $index{$nstr} .= make_half_href("$CURRENT_FILE#$br_id"); - return "<a name=$br_id>RFC $rfcnumber</a>" .$_; + return "<a name=\"$br_id\"\nhref=\"$href\">RFC $rfcnumber</a>" .$_; } sub do_cmd_deprecated{ @@ -269,11 +270,13 @@ $IDXFILE_FIELD_SEP = "\1"; sub gen_target_name{ - return "l2h-" . @_[0]; + my($stuff) = @_; + return "l2h-" . $stuff; } sub gen_target{ - return '<a name="' . @_[0] . '">'; + my($name) = @_; + return '<a name="' . $name . '">'; } sub gen_link{ |