Annotation of /trunk/share/web/templates/list

<%args>
$database_id => undef
$order => 'name'
</%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 => $database_id ) if ( $database_id );
$queries->order_by( column => $order, order => 'asc' );

warn $queries->build_select_query;

</%init>

<&| /_elements/wrapper, title => "Available queries" &>
<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 %>
        |
        <% $q->owner ? $q->owner->name : '?' %>
        |
        <% $q->created_on->ymd . ' ' . $q->created_on->hms %>

% if ( $edit ) {
        <tt>[<% $q->on_database->id . ': ' . $q->on_database->dsn %>]</tt>
% }
        <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>
</&>

% if ( $edit ) {
<% Jifty->web->tangent(
        url => '/new',
        parameters => { database => $database_id },
        label => 'New SQL query',
) %>


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