From 97140c44ca806c1418478bf6a6995678a6d52803 Mon Sep 17 00:00:00 2001
From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Thu, 24 Oct 2024 00:39:51 +0200
Subject: [PATCH] lib/perl/NB/CGI.pm

---
 lib/perl/NB/CGI.pm | 17 +++--------------
 1 file changed, 3 insertions(+), 14 deletions(-)

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index 785ca2cb..bc567272 100644
--- a/lib/perl/NB/CGI.pm
+++ b/lib/perl/NB/CGI.pm
@@ -138,13 +138,12 @@ sub header_status {
 	#die $status;
 	#die $status_codes{$status};
 	$status = $status." ".$status_codes{$status} if $status_codes{$status};
-	return ($ENV{SERVER_PROTOCOL}||'HTTP/1.1')." $status\r\n";
+	return ($ENV{SERVER_PROTOCOL} || 'HTTP/1.1')." $status\r\n";
 }
 
 sub args2hash {
 	my @p = @_;
 	my %hash;
-	#warn join('|',@p);
 
 	for (my $i=0;$i<@p-1;$i++)
 	{
@@ -210,11 +209,6 @@ sub header {
 		%p = &argsAdd(\@p,'expires','now');
 		#&CGI::cache(0); # we dont want doubles headers
 	}
-	#warn map("$_\n",@p);
-	#warn join('|',@p);
-	#warn join('|',keys(%p));
-	#die join('|',keys(%p));
-	#die $p{expires};
 	my $status = '';
 
 	if (!&CGI::nph())
@@ -350,11 +344,6 @@ sub text__tag_func {
 		$result[0] = $TD_PREFF_TEXT.$result[0] if @result;
 		$TD_PREFF_TEXT = "\t";
 	}
-	# TH
-	# NB 19.10.24 elsif ($tagname eq 'th')
-	# NB 19.10.24 {
-		# NB 19.10.24 @result = map {$_ ? "$_\n" : '';} @result;
-	# NB 19.10.24 }
 	# IFRAME
 	elsif ($tagname eq 'iframe')
 	{
@@ -376,8 +365,8 @@ sub start_html {
 }
 #sub div { return &tag(@_) }
 sub end_html { return "" if $TEXT_OUTPUT; return &CGI::end_html(@_); }
-sub start_TR { return "" if $TEXT_OUTPUT; return &CGI::start_TR(@_); }
-sub end_TR { return "|\n" if $TEXT_OUTPUT; return &CGI::end_TR(@_); }
+sub start_TR { if ($TEXT_OUTPUT) {$TD_PREFF_TEXT = ""; 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(@_); }
 sub popup_menu { return &text_popup_menu(@_) if $TEXT_OUTPUT; return &CGI::popup_menu(@_); }
-- 
2.47.3