[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++;