stas 02/04/14 11:44:08
Modified: lib/DocSet/Doc Common.pm
Log:
merge two <a>'s into one <a> with two attrs
Revision Changes Path
1.6 +1 -1 modperl-docs/lib/DocSet/Doc/Common.pm
Index: Common.pm
===================================================================
RCS file: /home/cvs/modperl-docs/lib/DocSet/Doc/Common.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Common.pm 13 Apr 2002 15:44:20 -0000 1.5
+++ Common.pm 14 Apr 2002 18:44:07 -0000 1.6
@@ -140,7 +140,7 @@
$anchor =~ s/^\s*|\s*$//g; # strip leading and closing spaces
$anchor =~ s/\W/_/g;
my $link = $title->present($self);
- return qq{<a name="$anchor"></a><a href="#toc_$anchor">$link</a>};
+ return qq{<a name="$anchor" href="#toc_$anchor">$link</a>};
}
# we want the pre sections look different from normal text. So we use
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
