web/templates/sql.html

<%args>
$page => 1
$sth => undef
</%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') %>
<% $action->form_field('database') %>
<% Jifty->web->form->submit( label => 'Try it!' ) %>

% if ( defined($sth) ) {

<hr/>

<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>

<hr/>

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

</%perl>

<% $save->form_field('name') %>
<% $save->button( label => 'Save' ) %>

% }

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

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