\t in text mode for th and td

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index 3f8f417f221fa27f6f2d59c7e4fe8c06618efaeb..785ca2cb67a8ad84ae4fdcedde0080358adbd8c1 100644 (file)
--- 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')