fix html entities

diff --git a/lib/perl/NB/Functions.pm b/lib/perl/NB/Functions.pm
index 75d14cde561890ebe1548467cec9f4167a17ceb9..aa43fd9ba6f40d91acd2282f30bec02cd8802cc7 100644 (file)
--- a/lib/perl/NB/Functions.pm
+++ b/lib/perl/NB/Functions.pm
@@ -554,11 +554,18 @@ sub html2txt {
                ( (<)/?\w+(\s+\w+=['"]+[^'"]+['"]+)*/?(>) ) # start tag
                |( (<)?\w+(\s+\w+=\S+)*/?(>) ) # end tag
 
-               |( (<|&lt;)!\[CDATA\[ ) # cdata begin
-               | ( \]\](>|&gt;) ) # cdata end
+       # NB 04.06.23: NO we want entities !!!  
+               # NB 04.06.23 |( (<|&lt;)!\[CDATA\[ ) # cdata begin
+               # NB 04.06.23 | ( \]\](>|&gt;) ) # cdata end
+               |( <!\[CDATA\[ ) # cdata begin
+               |( \]\]> ) # cdata end
+
+       # NB 04.06.23: NO we want entities !!!  
+               # NB 04.06.23 |( (<|&lt;)/\w+\s*$ ) # incomplet html
+               # NB 04.06.23 |( ^(<|&lt;)\w+ .* ) # incomplet html
+               |( </\w+\s*$ ) # incomplet html
+               |( ^<\w+ .* ) # incomplet html
 
-               |( (<|&lt;)/\w+\s*$ ) # incomplet html
-               |( ^(<|&lt;)\w+ .* ) # incomplet html
     |(<\!DOCTYPE[^>]+>)
     |([\w_-]+="[^"]+") # attrs
                |( <\w[^>]+> ) # tags