--- lib/A3C/View/Strix.pm 2008/06/22 14:55:55 220 +++ lib/A3C/View/Strix.pm 2008/06/23 00:12:56 221 @@ -158,23 +158,30 @@ template 'execute-sql' => sub { + my $sql = get('sql') || Jifty->web->session->get('sql'); + warn ">>>> sql = $sql"; + my $instance = get('instance'); + warn ">>>> instance = $instance"; + my $action = new_action( class => 'StrixSQL', moniker => 'strix-sql', sticky_on_success => 1, sticky_on_failure => 1, arguments => { - instance => get('instance') - } + instance => $instance, + sql => $sql, + }, ); form { - render_action( $action => [ 'instance', 'sql' ] ); + render_action( $action, [ 'instance', 'sql' ] ); form_submit( label => _('Execute SQL') ); }; if ( my $sql = $action->result->content('sql') ) { - div { _('Found %1 results', $sql->count ) } + Jifty->web->session->set( sql => $sql->query ); + div { _('Found %1 results for %2', $sql->count, $instance ) } table { row { map { th { $_ } } $sql->_column_names }; while (my $row = $sql->next) { @@ -186,6 +193,7 @@ } } } + warn ">>>> sql (at end) = ",Jifty->web->session->get('sql'); }; =head2 search-instances