lib/perl/NB/CGI.pm

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index 7c2ae28a915285692f35d5996b3bdf2ab821381a..e2d30df5c3023859d1378556caad0a24f5cf50ce 100644 (file)
--- 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)