]> git.nbdom.net Git - nb.git/commitdiff
html2txt not entoties for new line regexp
authorNicolas Boisselier <nicolas.boisselier@gmail.com>
Fri, 7 Jul 2023 22:24:30 +0000 (00:24 +0200)
committerNicolas Boisselier <nicolas.boisselier@gmail.com>
Fri, 7 Jul 2023 22:24:30 +0000 (00:24 +0200)
lib/perl/NB/Functions.pm

index 30bb739367f76aeb333f8999ba2f8a66b50b85e1..7146358b118fb68ceb93db0982558276b58cc6b5 100644 (file)
@@ -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 )