Contents of /trunk/share/web/templates/sql

<%args>
$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) ) {

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

<%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') %>
<% $save->button( label => 'Save' ) %>

% }

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

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