/[SQLSession]/trunk/share/web/templates/list
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 39 - (hide annotations)
Thu Jan 18 17:53:58 2007 UTC (17 years, 3 months ago) by dpavlin
File size: 1008 byte(s)
REST to select database: /list/database/4
1 dpavlin 39 <%args>
2     $database_id => undef
3     </%args>
4 dpavlin 18 <%init>
5     my $queries = SQLSession::Model::QueryCollection->new();
6 dpavlin 32
7     my $edit = Jifty->config->app('edit');
8     if ( $edit ) {
9     $queries->unlimit;
10     } else {
11     $queries->limit( column => 'visible', value => 1 );
12     }
13 dpavlin 39 $queries->limit( column => 'on_database', value => $database_id ) if ( $database_id );
14 dpavlin 29 $queries->order_by( column => 'name', order => 'asc' );
15 dpavlin 18
16 dpavlin 39 warn $queries->build_select_query;
17    
18 dpavlin 18 </%init>
19    
20     <&| /_elements/wrapper, title => "Available queries" &>
21     <dl>
22     % while (my $q = $queries->next) {
23 dpavlin 20 <dt><% Jifty->web->tangent(
24     url => '/sql/' . $q->id,
25     label => $q->name,
26 dpavlin 38 ) %>
27    
28     <span class="database-name">on <% $q->on_database->name %>
29     % if ( $edit ) {
30 dpavlin 39 <tt>[<% $q->on_database->id . ': ' . $q->on_database->dsn %>]</tt>
31 dpavlin 38 % }
32     </span>
33    
34     </dt>
35 dpavlin 18 <dd>
36 dpavlin 29 % if ($q->note) {
37     <div class="sql-note"><% $q->note %></div>
38     % }
39 dpavlin 28 <pre class="sql"><% $q->sql_query %></pre>
40 dpavlin 18 </dd>
41     % }
42     </dl>
43     </&>
44 dpavlin 21
45 dpavlin 32 % if ( $edit ) {
46 dpavlin 21 <% Jifty->web->tangent( url => '/new', label => 'New SQL query' ) %>
47 dpavlin 32 % }

  ViewVC Help
Powered by ViewVC 1.1.26