| commit | 45f2601cf38b11647df3a3dd45465d4c57c77dfc | [log] [tgz] |
|---|---|---|
| author | Fred Drake <fdrake@acm.org> | Tue Aug 04 22:07:18 1998 +0000 |
| committer | Fred Drake <fdrake@acm.org> | Tue Aug 04 22:07:18 1998 +0000 |
| tree | c26938bc48c674a332447b63fe5a410f4e6d8db6 | |
| parent | f54556efae30d39f8481b7098322fb56ff114833 [diff] |
get_chapter_id(): Separate two aspects of string replacement to allow the need for each to vary independently.
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index ac1b627..f2a319e 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl
@@ -883,7 +883,8 @@ sub get_chapter_id(){ my $id = do_cmd_thechapter(''); - $id =~ s/<SPAN CLASS="arabic">(\d+)<\/SPAN>\./\1/; + $id =~ s/<SPAN CLASS="arabic">(\d+)<\/SPAN>/\1/; + $id =~ s/\.//; return $id; }