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

<%args>
$on_database => undef
$order
</%args>
<%init>
my $queries = SQLSession::Model::QueryCollection->new();

my $edit = Jifty->web->current_user->role('edit');

#use Data::Dump qw/dump/;
#warn "current_user = ", dump( Jifty->web->current_user );
#warn "edit = $edit";

$queries->unlimit;
$queries->limit( column => 'on_database', value => $on_database ) if ( $on_database );
$queries->order_by( column => $order, order => 'asc' );

warn $queries->build_select_query,$/;

warn "order: $order\n";

</%init>

Sort by:
% foreach my $c ( qw/name created_on owner/ ) {
<% $order ne $c ? Jifty->web->link(
        label => $c,
        onclick => {
                replace_with => '/fragments/queries',
                args => {
                        on_database => $on_database,
                        order => $c,
                },
        },
        #as_button => 1,
) : $c %>
% }

<dl>
% while (my $q = $queries->next) {
        <dt><% Jifty->web->tangent(
                url => '/sql/' . $q->id,
                label => $q->name,
        ) %>

        <span class="database-name">
        <% $q->on_database->name %>
        |
        <% defined($q->owner->name) ? $q->owner->name : '?' %>
        |
        <% $q->created_on->ymd . ' ' . $q->created_on->hms %>

        <span class="database-schema">
        <%perl>
        my $name = $q->on_database->dsn;
        $name =~ s/^.*dbname=//;
        $m->out("<a href=\"/static/spy/$name/index.html\" target=\"_spy\">$name shema</a>");
        </%perl>
        </span>

        </span>

        </dt>
        <dd>
% if ($q->note) {
        <div class="sql-note"><% $q->note %></div>
% }
        <pre class="sql"><% $q->sql_query %></pre>
        </dd>
% }
</dl>
1	dpavlin	77	<%args>
2	dpavlin	84	$on_database => undef
3	dpavlin	77	$order
4			</%args>
5			<%init>
6			my $queries = SQLSession::Model::QueryCollection->new();
7
8			my $edit = Jifty->web->current_user->role('edit');
9
10			#use Data::Dump qw/dump/;
11			#warn "current_user = ", dump( Jifty->web->current_user );
12			#warn "edit = $edit";
13
14			$queries->unlimit;
15	dpavlin	84	$queries->limit( column => 'on_database', value => $on_database ) if ( $on_database );
16	dpavlin	77	$queries->order_by( column => $order, order => 'asc' );
17
18			warn $queries->build_select_query,$/;
19
20			warn "order: $order\n";
21
22			</%init>
23
24			Sort by:
25			% foreach my $c ( qw/name created_on owner/ ) {
26			<% $order ne $c ? Jifty->web->link(
27			label => $c,
28			onclick => {
29			replace_with => '/fragments/queries',
30			args => {
31	dpavlin	84	on_database => $on_database,
32	dpavlin	77	order => $c,
33			},
34			},
35			#as_button => 1,
36			) : $c %>
37			% }
38
39			<dl>
40			% while (my $q = $queries->next) {
41			<dt><% Jifty->web->tangent(
42			url => '/sql/' . $q->id,
43			label => $q->name,
44			) %>
45
46			<span class="database-name">
47			<% $q->on_database->name %>
48			\|
49			<% defined($q->owner->name) ? $q->owner->name : '?' %>
50			\|
51			<% $q->created_on->ymd . ' ' . $q->created_on->hms %>
52
53			<span class="database-schema">
54			<%perl>
55			my $name = $q->on_database->dsn;
56			$name =~ s/^.*dbname=//;
57			$m->out("<a href=\"/static/spy/$name/index.html\" target=\"_spy\">$name shema</a>");
58			</%perl>
59			</span>
60
61			</span>
62
63			</dt>
64			<dd>
65			% if ($q->note) {
66			<div class="sql-note"><% $q->note %></div>
67			% }
68			<pre class="sql"><% $q->sql_query %></pre>
69			</dd>
70			% }
71			</dl>