--- index.cgi 2009/04/14 21:25:00 12
+++ index.cgi 2009/04/15 18:42:41 15
@@ -37,7 +37,7 @@
while ( my @row = $sth->fetchrow_array ) {
my ( $n, $c ) = @row;
$n = 'NULL' unless defined $n;
- print qq|
$c | $n |
|;
+ print qq|$c | $n |
|;
}
print qq||;
exit;
@@ -52,13 +52,6 @@
-
-
-
-
-
@@ -113,6 +106,13 @@
print $sth->rows, qq| rows in $t s|;
+#my @types = map { scalar $dbh->type_info($_)->{TYPE_NAME} } @{ $sth->{TYPE} };
+my $types = dump( $sth->{TYPE} );
+print qq{
+
+};
@columns = @{ $sth->{NAME} } if $#columns == 0 && $columns[0] eq '*';