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

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