lib/perl/NB/CGI.pm

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