lib/perl/NB/CGI.pm

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index 93712ac9c5b8f1021967d909404cec2eb6e222a4..b865ee6078068d639a4a7a74850e99d76fa10642 100644 (file)
--- a/lib/perl/NB/CGI.pm
+++ b/lib/perl/NB/CGI.pm
@@ -332,6 +332,11 @@ sub text__tag_func {
                #print(">>".$tagname.$attr{cgi_text}."\n");
                @result = ($attr{cgi_text},"\n") if $attr{cgi_text};
        }
+       # P
+       elsif ($tagname =~ /^p$/)
+       {
+               @result = map {"$_\n";} @result;
+       }
        # H.
        elsif ($tagname =~ /^h(\d+)$/)
        {