lib/perl/NB/CGI.pm

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index f1682baf69a24f84270b5dd34baab0328867def0..7c2ae28a915285692f35d5996b3bdf2ab821381a 100644 (file)
--- a/lib/perl/NB/CGI.pm
+++ b/lib/perl/NB/CGI.pm
@@ -345,15 +345,12 @@ sub _tag_func_text {
        # TR
        elsif ($tagname =~ /^(end_)?tr$/i)
        {
-               # NB 24.10.24 @result = map {"$_|\n";} @result;
                @result = map {"$_\n";} @result;
                $_TD_TEXT_PREFF = "";
        }
        # TD, TH
        elsif ($tagname =~ /^(start_)?(td|th)$/)
        {
-               # NB 24.10.24 @result = map {"|$_";} @result;
-               # NB 24.10.24 @result = map {"$_\t";} @result;
                @result = join($TD_TEXT_SEP, @result);
                $result[0] = $_TD_TEXT_PREFF.$result[0] if @result;
                $_TD_TEXT_PREFF = $TD_TEXT_SEP;