From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Wed, 23 Oct 2024 22:34:45 +0000 (+0200)
Subject: \t in text mode for th and td
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=c328f6c8ff3f23b5590e7a788cd6c4c3b9b80e2d;p=nb.git

\t in text mode for th and td
---

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index 3f8f417f..785ca2cb 100644
--- a/lib/perl/NB/CGI.pm
+++ b/lib/perl/NB/CGI.pm
@@ -9,6 +9,7 @@ our $DefaultClass = 'NB::CGI';
 our $Q;
 our $NO_HEADERS = 0;
 our $TEXT_OUTPUT = 0;
+our $TD_PREFF_TEXT;
 
 if (1) { # NB 06.12.23: infinite loop  
 	no warnings 'redefine';
@@ -336,12 +337,18 @@ sub text__tag_func {
 	# TR
 	elsif ($tagname =~ /^tr$/)
 	{
-		@result = map {"$_|\n";} @result;
+		# NB 24.10.24 @result = map {"$_|\n";} @result;
+		@result = map {"$_\n";} @result;
+		$TD_PREFF_TEXT = "";
 	}
 	# TD, TH
 	elsif ($tagname =~ /^(start_)?(td|th)$/)
 	{
-		@result = map {"|$_";} @result;
+		# NB 24.10.24 @result = map {"|$_";} @result;
+		# NB 24.10.24 @result = map {"$_\t";} @result;
+		@result = join("\t", @result);
+		$result[0] = $TD_PREFF_TEXT.$result[0] if @result;
+		$TD_PREFF_TEXT = "\t";
 	}
 	# TH
 	# NB 19.10.24 elsif ($tagname eq 'th')