--- 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><$cell>|, @_ )
- . qq|$cell>
|
- ;
-
-}
-
-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><$cell>|, @_ )
+ . qq|$cell>
|
+ ;
+}
+
+print table_row( 'th', @columns );
+
+while ( my @row = $sth->fetchrow_array ) {
+ print table_row( 'td', @row );
+}
+print qq|
|
, qq|