Contents of /trunk/share/web/templates/list

<%args>
$database_id => undef
</%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";

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