/[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

Diff of /trunk/share/web/templates/list

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/share/web/templates/index.html revision 18 by dpavlin, Sun Dec 3 14:50:23 2006 UTC trunk/share/web/templates/list revision 73 by dpavlin, Sun Jan 28 00:46:48 2007 UTC
# Line 1  Line 1 
1    <%args>
2    $database_id => undef
3    $order => 'name'
4    </%args>
5  <%init>  <%init>
6  my $queries = SQLSession::Model::QueryCollection->new();  my $queries = SQLSession::Model::QueryCollection->new();
7  $queries->unlimit();  
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    $queries->limit( column => 'on_database', value => $database_id ) if ( $database_id );
16    $queries->order_by( column => $order, order => 'asc' );
17    
18    warn $queries->build_select_query;
19    
20  </%init>  </%init>
21    
22  <&| /_elements/wrapper, title => "Available queries" &>  <&| /_elements/wrapper, title => "Available queries" &>
23  <dl>  <dl>
24  % while (my $q = $queries->next) {  % while (my $q = $queries->next) {
25          <dt><% $q->name %></dt>          <dt><% Jifty->web->tangent(
26                    url => '/sql/' . $q->id,
27                    label => $q->name,
28            ) %>
29    
30            <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    % if ( $edit ) {
38            <tt>[<% $q->on_database->id . ': ' . $q->on_database->dsn %>]</tt>
39    % }
40            <span class="database-schema">
41            <%perl>
42            my $name = $q->on_database->dsn;
43            $name =~ s/^.*dbname=//;
44            $m->out("<a href=\"/static/spy/$name/index.html\" target=\"_spy\">$name shema</a>");
45            </%perl>
46            </span>
47    
48            </span>
49    
50            </dt>
51          <dd>          <dd>
52          on <% $q->on_database->name %> <tt>[<% $q->on_database->dsn %>]</tt>  % if ($q->note) {
53          <pre>          <div class="sql-note"><% $q->note %></div>
54          <% $q->sql_query %>  % }
55          </pre>          <pre class="sql"><% $q->sql_query %></pre>
56          </dd>          </dd>
57  % }  % }
58  </dl>  </dl>
59  </&>  </&>
60    
61    % if ( $edit ) {
62    <% Jifty->web->tangent(
63            url => '/new',
64            parameters => { database => $database_id },
65            label => 'New SQL query',
66    ) %>
67    
68    
69    % }
Legend:
Removed from v.18  
changed lines
  Added in v.73
  ViewVC Help
Powered by ViewVC 1.1.26