lib/perl/NB/CGI.pm

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index bc567272f823dbf2ebbc3c690f9a7f2215f4f171..a53c9636d3c91d8a568d9b5d9d970eb4dfb8e9c1 100644 (file)
--- 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(@_); }