From cae19cd762fef58ba4702ad779ad52787788bdbb Mon Sep 17 00:00:00 2001 From: Nicolas Boisselier Date: Thu, 24 Oct 2024 10:49:13 +0200 Subject: [PATCH] lib/perl/NB/CGI.pm --- lib/perl/NB/CGI.pm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm index bc567272..a53c9636 100644 --- a/lib/perl/NB/CGI.pm +++ b/lib/perl/NB/CGI.pm @@ -9,7 +9,8 @@ our $DefaultClass = 'NB::CGI'; our $Q; our $NO_HEADERS = 0; our $TEXT_OUTPUT = 0; -our $TD_PREFF_TEXT; +our $TD_TEXT_SEP = "\t"; +our $_TD_TEXT_PREFF; if (1) { # NB 06.12.23: infinite loop no warnings 'redefine'; @@ -333,16 +334,16 @@ sub text__tag_func { { # NB 24.10.24 @result = map {"$_|\n";} @result; @result = map {"$_\n";} @result; - $TD_PREFF_TEXT = ""; + $_TD_TEXT_PREFF = ""; } # TD, TH elsif ($tagname =~ /^(start_)?(td|th)$/) { # 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"; + @result = join($TD_TEXT_SEP, @result); + $result[0] = $_TD_TEXT_PREFF.$result[0] if @result; + $_TD_TEXT_PREFF = $TD_TEXT_SEP; } # IFRAME elsif ($tagname eq 'iframe') @@ -365,7 +366,7 @@ sub start_html { } #sub div { return &tag(@_) } sub end_html { return "" if $TEXT_OUTPUT; return &CGI::end_html(@_); } -sub start_TR { if ($TEXT_OUTPUT) {$TD_PREFF_TEXT = ""; return ""}; return &CGI::start_TR(@_); } +sub start_TR { if ($TEXT_OUTPUT) {$_TD_TEXT_PREFF = ""; return ""}; return &CGI::start_TR(@_); } sub end_TR { return "\n" if $TEXT_OUTPUT; return &CGI::end_TR(@_); } sub button { return "" if $TEXT_OUTPUT; return &CGI::button(@_); } sub checkbox { return "" if $TEXT_OUTPUT; return &CGI::checkbox(@_); } -- 2.47.3