Annotation of /trunk/share/web/templates/sql

<%args>
$sth => undef

$sql_query
$name
$database

</%args>
<%init>

my $action = Jifty->web->new_action(
        class => 'DoSQL',
        moniker => 'execute_sql',
);

my $result = Jifty->web->response->result('execute_sql');
$sth = $result->content('sth') if $result and !defined $sth;

</%init>

<&| /_elements/wrapper, title => "Try out SQL query" &>
<% Jifty->web->form->start() %>
<% $action->form_field('sql_query',
        default_value => $sql_query,
) %>
<% $action->form_field('database',
        default_value => $database->id,
) %>
<div class="submit_button">
<% $action->button( label => 'Try it!' ) %>
</div>

% if ( defined($sth) ) {

<%perl>
my $save = Jifty->web->new_action(
        class => 'CreateQuery',
        arguments => {
                sql_query => $action->form_field('sql_query'),
                on_database => $action->form_field('database'),
        }
);

</%perl>

<% $save->form_field('name') %>
<div class="submit_button">
<% $save->button( label => 'Save' ) %>
</div>

<table cellpadding="3" cellspacing="0" border="1">

<tr>
% foreach my $col ( @{ $sth->{'NAME'} } ) {
<th><% $col %></th>
% }
</tr>

% while ( my @row = $sth->fetchrow_array() ) {
<tr>
%       foreach my $v ( @row ) {
<td><% defined($v) ? $v : 'NULL' %></td>
%       }
</tr>
% }

</table>

% }

<% Jifty->web->return( label => "Go back" ) %>

<% Jifty->web->form->end() %>
</&>

1	dpavlin	9	<%args>
2			$sth => undef
3	dpavlin	20
4			$sql_query
5			$name
6			$database
7
8	dpavlin	9	</%args>
9			<%init>
10
11			my $action = Jifty->web->new_action(
12			class => 'DoSQL',
13			moniker => 'execute_sql',
14			);
15
16			my $result = Jifty->web->response->result('execute_sql');
17			$sth = $result->content('sth') if $result and !defined $sth;
18
19			</%init>
20
21			<&\| /_elements/wrapper, title => "Try out SQL query" &>
22			<% Jifty->web->form->start() %>
23	dpavlin	20	<% $action->form_field('sql_query',
24			default_value => $sql_query,
25			) %>
26			<% $action->form_field('database',
27			default_value => $database->id,
28			) %>
29			<div class="submit_button">
30			<% $action->button( label => 'Try it!' ) %>
31			</div>
32	dpavlin	9
33	dpavlin	10	% if ( defined($sth) ) {
34
35	dpavlin	20	<%perl>
36			my $save = Jifty->web->new_action(
37			class => 'CreateQuery',
38			arguments => {
39			sql_query => $action->form_field('sql_query'),
40			on_database => $action->form_field('database'),
41			}
42			);
43
44			</%perl>
45
46			<% $save->form_field('name') %>
47			<div class="submit_button">
48			<% $save->button( label => 'Save' ) %>
49			</div>
50
51	dpavlin	9	<table cellpadding="3" cellspacing="0" border="1">
52
53			<tr>
54			% foreach my $col ( @{ $sth->{'NAME'} } ) {
55			<th><% $col %></th>
56			% }
57			</tr>
58
59			% while ( my @row = $sth->fetchrow_array() ) {
60			<tr>
61			% foreach my $v ( @row ) {
62	dpavlin	12	<td><% defined($v) ? $v : 'NULL' %></td>
63	dpavlin	9	% }
64			</tr>
65			% }
66
67			</table>
68	dpavlin	10
69	dpavlin	20	% }
70	dpavlin	14
71	dpavlin	20	<% Jifty->web->return( label => "Go back" ) %>
72	dpavlin	14
73			<% Jifty->web->form->end() %>
74			</&>
75