--- index.cgi 2009/04/18 23:14:41 23 +++ index.cgi 2009/04/18 23:21:40 24 @@ -153,39 +153,10 @@ 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 '*'; -print qq||; - -my $counter = 0; -sub table_row { - my $cell = shift; - my $class = $counter++ % 2 == 0 ? ' class=o' : ''; - return - qq|<$cell>| - . join( qq|<$cell>|, @_ ) - . qq|| - ; - -} - -print table_row( 'th', @columns ); - -while ( my @row = $sth->fetchrow_array ) { - print table_row( 'td', @row ); -} - print - qq|
| - , start_form( -id => 'sql', -class => 'fixed' ) + start_form( -id => 'sql', -class => 'fixed' ) , qq|| , qq|| @@ -206,7 +177,7 @@
- + | , qq|| @@ -224,7 +195,36 @@ , submit( -name => 'execute', -value => 'execute' ) , end_form + ; + +#my @types = map { scalar $dbh->type_info($_)->{TYPE_NAME} } @{ $sth->{TYPE} }; +my $types = dump( $sth->{TYPE} ); +print qq{ + +}; + +print qq||; + +my $counter = 0; +sub table_row { + my $cell = shift; + my $class = $counter++ % 2 == 0 ? ' class=o' : ''; + return + qq|<$cell>| + . join( qq|<$cell>|, @_ ) + . qq|| + ; +} + +print table_row( 'th', @columns ); + +while ( my @row = $sth->fetchrow_array ) { + print table_row( 'td', @row ); +} +print qq|
| , qq|| ;