html2txt not entoties for new line regexp

diff --git a/lib/perl/NB/Functions.pm b/lib/perl/NB/Functions.pm
index 30bb739367f76aeb333f8999ba2f8a66b50b85e1..7146358b118fb68ceb93db0982558276b58cc6b5 100644 (file)
--- a/lib/perl/NB/Functions.pm
+++ b/lib/perl/NB/Functions.pm
@@ -533,13 +533,25 @@ sub html2txt {
        my $v = shift @_;
 
   # New line
+       # NB 08.07.23 $v =~ s,
+               # NB 08.07.23 (
+                       # NB 08.07.23 (<|&lt;)(tr|li|)(\s+[^>])*>
+               # NB 08.07.23 )
+               # NB 08.07.23 |
+               # NB 08.07.23 (
+                       # NB 08.07.23 (<|&lt;)(br|hr)(\s*/\s*)?>
+               # NB 08.07.23 )
+               # NB 08.07.23 |
+               # NB 08.07.23 ( \\n )
+       # NB 08.07.23 ,\n,gix;
+
        $v =~ s,
                (
-                       (<|&lt;)(tr|li|)(\s+[^>])*>
+                       <(tr|li|)(\s+[^>])*>
                )
                |
                (
-                       (<|&lt;)(br|hr)(\s*/\s*)?>
+                       <(br|hr)(\s*/\s*)?>
                )
                |
                ( \\n )