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

<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	dpavlin	80	#use Data::Dump qw/dump/;
20			#warn "q = ", dump( $q );
21	dpavlin	78
22			</%init>
23
24			% if ($sth) {
25
26			<table class="sql-result-table" cellpadding="3" cellspacing="0" border="1">
27
28			<tr>
29			% foreach my $col ( @{ $sth->{'NAME'} } ) {
30			<th><% $col %></th>
31			% }
32			</tr>
33
34			% my $rows = 0;
35			% while ( my @row = $sth->fetchrow_array() ) {
36			% last if (++$rows > $max_rows);
37			<tr>
38			% foreach my $v ( @row ) {
39			<td><% defined($v) ? $v : 'NULL' %></td>
40			% }
41			</tr>
42			% }
43
44			</table>
45
46			% if ($sth->rows > $max_rows) {
47			<div class="note">
48			Query produced more than <% $max_rows %> rows, try adding <tt>LIMIT</tt> and
49			<tt>OFFSET</tt> to see another part of results.
50			</div>
51			% }
52
53
54			% } # if $sth