/[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 20 by dpavlin, Sun Dec 3 18:03:30 2006 UTC trunk/share/web/templates/list revision 45 by dpavlin, Sun Jan 21 12:19:58 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->unlimit();  
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    
12    warn "edit = $edit";
13    
14    
15    if ( $edit ) {
16            $queries->unlimit;
17    } else {
18            $queries->limit( column => 'visible', value => 1 );
19    }
20    $queries->limit( column => 'on_database', value => $database_id ) if ( $database_id );
21    $queries->order_by( column => 'name', order => 'asc' );
22    
23    warn $queries->build_select_query;
24    
25  </%init>  </%init>
26    
# Line 10  $queries->unlimit(); Line 30  $queries->unlimit();
30          <dt><% Jifty->web->tangent(          <dt><% Jifty->web->tangent(
31                  url => '/sql/' . $q->id,                  url => '/sql/' . $q->id,
32                  label => $q->name,                  label => $q->name,
33          ) %></dt>          ) %>
34    
35            <span class="database-name">on <% $q->on_database->name %>
36    % if ( $edit ) {
37            <tt>[<% $q->on_database->id . ': ' . $q->on_database->dsn %>]</tt>
38    % }
39    <%perl>
40            my $name = $q->on_database->dsn;
41            $name =~ s/^.*dbname=//;
42            $m->out("<a href=\"/static/spy/$name/index.html\">$name</a>");
43    </%perl>
44            </span>
45    
46            </dt>
47          <dd>          <dd>
48          on <% $q->on_database->name %> <tt>[<% $q->on_database->dsn %>]</tt>  % if ($q->note) {
49          <pre>          <div class="sql-note"><% $q->note %></div>
50          <% $q->sql_query %>  % }
51          </pre>          <pre class="sql"><% $q->sql_query %></pre>
52          </dd>          </dd>
53  % }  % }
54  </dl>  </dl>
55  </&>  </&>
56    
57    % if ( $edit ) {
58    <% Jifty->web->tangent( url => '/new', label => 'New SQL query' ) %>
59    % }
Legend:
Removed from v.20  
changed lines
  Added in v.45
  ViewVC Help
Powered by ViewVC 1.1.26