textOutput iframe

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index be9df9181c2020785f3296dc06129a254233bc3d..ee8721469d0d6ae958782d16733d10ab79f3993c 100644 (file)
--- a/lib/perl/NB/CGI.pm
+++ b/lib/perl/NB/CGI.pm
@@ -46,7 +46,6 @@ sub textOutput {{
                # TH
                elsif ($tagname eq 'th')
                {
-                       #@result = map { &str_center($_)."\n" } @result;
                        @result = map {$_ ? "$_\n" : '';} @result;
                }
                # TD
@@ -55,6 +54,12 @@ sub textOutput {{
                        #warn $tagname if ($tagname =~ /^(start_)?td$/);
                        @result = map {"|$_";} @result;
                }
+               # IFRAME
+               elsif ($tagname eq 'iframe')
+               {
+                       @result = map {$_ ? "$_\n" : '';} @result;
+                       @result = ('[ '.$a->{src}.' ]') if ref($a)||'' eq 'HASH';
+               }
 
                @result = grep {$_ ne ' '} @result;
                return "@result";