1 |
dpavlin |
18 |
<%init> |
2 |
|
|
my $queries = SQLSession::Model::QueryCollection->new(); |
3 |
|
|
$queries->unlimit(); |
4 |
|
|
|
5 |
|
|
</%init> |
6 |
|
|
|
7 |
|
|
<&| /_elements/wrapper, title => "Available queries" &> |
8 |
|
|
<dl> |
9 |
|
|
% while (my $q = $queries->next) { |
10 |
dpavlin |
20 |
<dt><% Jifty->web->tangent( |
11 |
|
|
url => '/sql/' . $q->id, |
12 |
|
|
label => $q->name, |
13 |
|
|
) %></dt> |
14 |
dpavlin |
18 |
<dd> |
15 |
|
|
on <% $q->on_database->name %> <tt>[<% $q->on_database->dsn %>]</tt> |
16 |
|
|
<pre> |
17 |
|
|
<% $q->sql_query %> |
18 |
|
|
</pre> |
19 |
|
|
</dd> |
20 |
|
|
% } |
21 |
|
|
</dl> |
22 |
|
|
</&> |
23 |
dpavlin |
21 |
|
24 |
|
|
<% Jifty->web->tangent( url => '/new', label => 'New SQL query' ) %> |