From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Fri, 7 Jul 2023 22:24:30 +0000 (+0200)
Subject: html2txt not entoties for new line regexp
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=58722a0a3ef32e5fefba77bf582214b54bbd1824;p=nb.git

html2txt not entoties for new line regexp
---

diff --git a/lib/perl/NB/Functions.pm b/lib/perl/NB/Functions.pm
index 30bb7393..7146358b 100644
--- 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 )