script_code

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index 28dc6807a2cb08119cb0d7b337484bd3302c52d9..de9bd70d1397dfff38123ae425f56054f71f6f14 100644 (file)
--- a/lib/perl/NB/CGI.pm
+++ b/lib/perl/NB/CGI.pm
@@ -234,6 +234,11 @@ sub text {
        return $TEXT_OUTPUT;
 }
 
+sub script_code {
+       my ($self,@p) = @_;
+       return $self->_script(@p);
+}
+
 sub tag {
        shift if ref($_[0]) eq __PACKAGE__; # _tag_func first arg must be tagname
        return &_tag_func(@_);