Annotation 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	dpavlin	9	<%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	dpavlin	10	% if ( defined($sth) ) {
23
24	dpavlin	9	<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	dpavlin	12	<td><% defined($v) ? $v : 'NULL' %></td>
36	dpavlin	9	% }
37			</tr>
38			% }
39
40			</table>
41	dpavlin	10
42	dpavlin	14	<%perl>
43			my $save = Jifty->web->new_action(
44	dpavlin	15	class => 'CreateQuery',
45	dpavlin	14	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	dpavlin	10	% }
57	dpavlin	14
58			<% Jifty->web->form->end() %>
59			</&>
60