From 41a999df32e423d6ddf743bbd4bbe75865d35081 Mon Sep 17 00:00:00 2001 From: Nicolas Boisselier Date: Tue, 1 Sep 2026 20:09:11 +0200 Subject: [PATCH] lib/perl/NB/CGI.pm --- lib/perl/NB/CGI.pm | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm index 7c2ae28a..e2d30df5 100644 --- a/lib/perl/NB/CGI.pm +++ b/lib/perl/NB/CGI.pm @@ -34,15 +34,6 @@ sub new { return $cgi; } -# NB 06.12.23 sub textOutput { - # NB 06.12.23 $TEXT_OUTPUT = 1; - # NB 06.12.23 $CGI::CRLF = ''; -# NB 06.12.23 { - # NB 06.12.23 no warnings 'redefine'; - # NB 06.12.23 no warnings 'once'; -# NB 06.12.23 } -# NB 06.12.23 } - sub status_msg { my %status_codes = ( 100 => "Continue", @@ -415,6 +406,7 @@ sub self_or_default { } sub css { + return "" if $TEXT_OUTPUT; my ($self,@p) = self_or_default(@_); $self->_style({ code => join($CGI::CRLF,map{ s/^\s+//; s/\s+$//; $_; } @p) -- 2.47.3