From 4d78ad50bddb99754ac9c9bb1025e2bc7f7eaa4b Mon Sep 17 00:00:00 2001 From: Nicolas Boisselier Date: Wed, 22 Nov 2023 23:18:31 +0100 Subject: [PATCH] lib/perl/NB/CGI.pm --- lib/perl/NB/CGI.pm | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm index d179c660..1dc85381 100644 --- a/lib/perl/NB/CGI.pm +++ b/lib/perl/NB/CGI.pm @@ -3,11 +3,13 @@ package NB::CGI; use strict; use parent qw/CGI/; +my $isTextOutput = 0; sub textOutput {{ no warnings 'redefine'; no warnings 'once'; #return unless $Opt{html}; + $isTextOutput = 1; *CGI::_tag_func = sub { my $tagname = shift; my ($q,$a,@rest) = CGI::self_or_default(@_); @@ -76,4 +78,23 @@ sub textOutput {{ }; }} + +sub start_html { + local $_ = &CGI::start_html(@_); + s///s; + return $_; +} + +sub _tag_func { + shift if ref($_[0]) eq __PACKAGE__; # for case: $cgi->_tag_func + return &CGI::_tag_func(@_); +} + +sub tag { + return &_tag_func(@_); +} + +sub text { + return $isTextOutput; +} 1; -- 2.47.3