Annotation of /trunk/share/web/templates/fragments/results

<%args>
$sth => undef
$q => undef
$max_rows => 100
</%args>
<%init>

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

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

my $edit = Jifty->web->current_user->role('edit');
warn $edit ? 'edit mode for SQL' : 'student mode';

use Data::Dump qw/dump/;
warn "q = ", dump( $q );

</%init>

% if ($sth) {

% if ($edit) {
<% Jifty->web->link(
        label => 'Save this query',
        onclick => {
                region => 'query',
                replace_with => '/fragments/save_query',
                args => {
                        sql_query => $query->argument_value('sql_query'),
                        database => $query->argument_value('database'),
                },
                refresh_self => 0,
                #toggle => 1,
                disable => 1,
                refresh => 'results',
        },
        as_button => 1,
) %>
% }

<table class="sql-result-table" cellpadding="3" cellspacing="0" border="1">

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

% my $rows = 0;
% while ( my @row = $sth->fetchrow_array() ) {
%       last if (++$rows > $max_rows);
<tr>
%       foreach my $v ( @row ) {
<td><% defined($v) ? $v : 'NULL' %></td>
%       }
</tr>
% }

</table>

% if ($sth->rows > $max_rows) {
<div class="note">
Query produced more than <% $max_rows %> rows, try adding <tt>LIMIT</tt> and
<tt>OFFSET</tt> to see another part of results.
</div>
% }


% } # if $sth
1	dpavlin	78	<%args>
2			$sth => undef
3			$q => undef
4			$max_rows => 100
5			</%args>
6			<%init>
7
8			my $query = Jifty->web->new_action(
9			class => 'DoSQL',
10			moniker => 'query',
11			);
12
13			my $result = Jifty->web->response->result('query');
14			$sth = $result->content('sth') if $result and !defined $sth;
15
16			my $edit = Jifty->web->current_user->role('edit');
17			warn $edit ? 'edit mode for SQL' : 'student mode';
18
19			use Data::Dump qw/dump/;
20			warn "q = ", dump( $q );
21
22			</%init>
23
24			% if ($sth) {
25
26			% if ($edit) {
27			<% Jifty->web->link(
28			label => 'Save this query',
29			onclick => {
30			region => 'query',
31			replace_with => '/fragments/save_query',
32			args => {
33			sql_query => $query->argument_value('sql_query'),
34			database => $query->argument_value('database'),
35			},
36			refresh_self => 0,
37			#toggle => 1,
38			disable => 1,
39			refresh => 'results',
40			},
41			as_button => 1,
42			) %>
43			% }
44
45			<table class="sql-result-table" cellpadding="3" cellspacing="0" border="1">
46
47			<tr>
48			% foreach my $col ( @{ $sth->{'NAME'} } ) {
49			<th><% $col %></th>
50			% }
51			</tr>
52
53			% my $rows = 0;
54			% while ( my @row = $sth->fetchrow_array() ) {
55			% last if (++$rows > $max_rows);
56			<tr>
57			% foreach my $v ( @row ) {
58			<td><% defined($v) ? $v : 'NULL' %></td>
59			% }
60			</tr>
61			% }
62
63			</table>
64
65			% if ($sth->rows > $max_rows) {
66			<div class="note">
67			Query produced more than <% $max_rows %> rows, try adding <tt>LIMIT</tt> and
68			<tt>OFFSET</tt> to see another part of results.
69			</div>
70			% }
71
72
73			% } # if $sth