lib/perl/NB/CGI.pm

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index 14bca9500fc19e4e5f3484a2c55d9a801d1faa46..c5e7ef83d9885ac81ea6ed66e7ef68834326b65f 100644 (file)
--- a/lib/perl/NB/CGI.pm
+++ b/lib/perl/NB/CGI.pm
@@ -251,6 +251,10 @@ sub text {
        return $TEXT_OUTPUT;
 }
 
+sub eot {
+       return ($TEXT_OUTPUT ? "" : "\n");
+}
+
 sub script_code {
        my ($self,@p) = @_;
        return $self->_script(@p);
@@ -330,7 +334,7 @@ sub text__tag_func {
        {
                @result = map {"$_|\n";} @result;
        }
-       # TD
+       # TD, TH
        elsif ($tagname =~ /^(start_)?(td|th)$/)
        {
                @result = map {"|$_";} @result;