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

<%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	dpavlin	9	<%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	dpavlin	10	% if ( defined($sth) ) {
24
25	dpavlin	14	<hr/>
26
27	dpavlin	9	<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	dpavlin	12	<td><% defined($v) ? $v : 'NULL' %></td>
39	dpavlin	9	% }
40			</tr>
41			% }
42
43			</table>
44	dpavlin	10
45	dpavlin	14	<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	dpavlin	10	% }
62	dpavlin	14
63			<% Jifty->web->form->end() %>
64			</&>
65