[TWiki-Dev] CVS: twiki/lib TWiki.pm,1.193,1.194

[Peter T. <pet...@us...>]

Update of /cvsroot/twiki/twiki/lib
In directory sc8-pr-cvs1:/tmp/cvs-serv7896

Modified Files:
	TWiki.pm 
Log Message:
Remove HTML entities from anchor strings

Index: TWiki.pm
===================================================================
RCS file: /cvsroot/twiki/twiki/lib/TWiki.pm,v
retrieving revision 1.193
retrieving revision 1.194
diff -C2 -r1.193 -r1.194
*** TWiki.pm	29 Dec 2002 10:13:19 -0000	1.193
--- TWiki.pm	30 Dec 2002 06:15:20 -0000	1.194
***************
*** 2301,2304 ****
--- 2301,2305 ----
      $anchorName =~ s/[\s\_]*$//;            # no trailing space, nor '_'
      $anchorName =~ s/<\w[^>]*>//gi;         # remove HTML tags
+     $anchorName =~ s/\&\#?[a-zA-Z0-9]*;//g; # remove HTML entities
      $anchorName =~ s/^(.+?)\s*$headerPatternNoTOC.*/$1/o; # filter TOC excludes if not at beginning
      $anchorName =~ s/$headerPatternNoTOC//o; # filter '!!', '%NOTOC%'