30 |
|
|
31 |
my $dbh = DBI->connect( $dsn, $user, '', { RaiseError => 1 } ) || die $DBI::errstr; |
my $dbh = DBI->connect( $dsn, $user, '', { RaiseError => 1 } ) || die $DBI::errstr; |
32 |
|
|
33 |
if ( my $group_by = param('add_group_by') ) { |
if ( my $group_by = param('lookup_col') ) { |
34 |
|
|
35 |
my @cols = ( $group_by, "count($group_by)" ); |
my @cols = ( $group_by, "count($group_by)" ); |
36 |
my @group_by = ( $group_by ); |
my @group_by = ( $group_by ); |
171 |
qq|</table>| |
qq|</table>| |
172 |
, start_form( -id => 'sql' ) |
, start_form( -id => 'sql' ) |
173 |
|
|
174 |
, qq|<a href="#" onclick="\$('form#sql').toggleClass('visible'); return false;" class=close title="hide sql editor">[x]</a>| |
, qq|<input type=button value="[x]" onclick="\$('form#sql').toggleClass('visible'); return false;" title="hide sql editor" class="close">| |
175 |
|
|
176 |
, qq|<label for=columns>select</label>| |
, qq|<label for=columns>select</label>| |
177 |
, checkbox_group( -name => 'columns', -values => [ @columns ], -defaults => [ @columns ] ) |
, checkbox_group( -name => 'columns', -values => [ @columns ], -defaults => [ @columns ] ) |
186 |
, textfield( -name => 'where_value' ) |
, textfield( -name => 'where_value' ) |
187 |
, qq| |
, qq| |
188 |
<span> |
<span> |
189 |
<input type=button name=add_group_by> |
<input type=button name=lookup_col title="lookup column details"> |
190 |
<input type=button name=close_group_by value="[x]" disabled=1> |
<input type=button name=close_group_by value="[x]" disabled=1> |
191 |
<div id="lookup"></div> |
<div id="lookup"></div> |
192 |
<span> |
<span> |