[docs] docs - jon modified sdf/perllib/sdf/tohtml.pl
docs@interchange.redhat.com
docs@interchange.redhat.com
Wed Jan 9 18:14:00 2002
User: jon
Date: 2002-01-09 23:13:44 GMT
Modified: sdf/perllib/sdf tohtml.pl
Log:
Fix bug that kept hyperlinks from working because of <A NAME="..."> areas.
Revision Changes Path
1.4 +3 -3 docs/sdf/perllib/sdf/tohtml.pl
rev 1.4, prev_rev 1.3
Index: tohtml.pl
===================================================================
RCS file: /var/cvs/docs/sdf/perllib/sdf/tohtml.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -u -r1.3 -r1.4
--- tohtml.pl 2001/05/18 03:42:25 1.3
+++ tohtml.pl 2002/01/09 23:13:44 1.4
@@ -1,5 +1,5 @@
-# $Id: tohtml.pl,v 1.3 2001/05/18 03:42:25 jon Exp $
-$VERSION{''.__FILE__} = '$Revision: 1.3 $';
+# $Id: tohtml.pl,v 1.4 2002/01/09 23:13:44 jon Exp $
+$VERSION{''.__FILE__} = '$Revision: 1.4 $';
#
# >>Title:: HTML Format Driver
#
@@ -1005,7 +1005,7 @@
}
$value = &_HtmlEscape($value);
- $text =~ s/\<A HREF\=[^>]+\>(.*)\<\/A\>/$1/;
+ $text =~ s/<A (?:HREF|NAME)=[^>]+>(.*)<\/A>/$1/;
$text = "<A HREF=\"$value\">$text</A>";
delete $attr{'jump'};
$result++;