Show arrays nicely

diff --git a/postgresql/exec.cgi b/postgresql/exec.cgi
index 0cefb3e..df60f6d 100755 (executable)
--- a/postgresql/exec.cgi
+++ b/postgresql/exec.cgi
@@ -24,7 +24,9 @@ else {
        if (@data) {
                print &ui_columns_start($d->{'titles'});
                foreach $r (@data) {
-                       print &ui_columns_row($r);
+                       @prow = map { ref($_) eq 'ARRAY' ? join(", ", @$_)
+                                                        : $_ } @$r;
+                       print &ui_columns_row(\@prow);
                        }
                print &ui_columns_end();
                }