/[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 38 by dpavlin, Thu Jan 18 17:02:24 2007 UTC revision 48 by dpavlin, Sun Jan 21 13:01:08 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    
7  my $edit = Jifty->config->app('edit');  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  if ( $edit ) {  if ( $edit ) {
14          $queries->unlimit;          $queries->unlimit;
15  } else {  } else {
16          $queries->limit( column => 'visible', value => 1 );          $queries->limit( column => 'visible', value => 1 );
17  }  }
18    $queries->limit( column => 'on_database', value => $database_id ) if ( $database_id );
19  $queries->order_by( column => 'name', order => 'asc' );  $queries->order_by( column => 'name', order => 'asc' );
20    
21    warn $queries->build_select_query;
22    
23  </%init>  </%init>
24    
25  <&| /_elements/wrapper, title => "Available queries" &>  <&| /_elements/wrapper, title => "Available queries" &>
# Line 21  $queries->order_by( column => 'name', or Line 32  $queries->order_by( column => 'name', or
32    
33          <span class="database-name">on <% $q->on_database->name %>          <span class="database-name">on <% $q->on_database->name %>
34  % if ( $edit ) {  % if ( $edit ) {
35          <tt>[<% $q->on_database->dsn %>]</tt>          <tt>[<% $q->on_database->id . ': ' . $q->on_database->dsn %>]</tt>
36  % }  % }
37    <%perl>
38            my $name = $q->on_database->dsn;
39            $name =~ s/^.*dbname=//;
40            $m->out("<a href=\"/static/spy/$name/index.html\">$name</a>");
41    </%perl>
42          </span>          </span>
43    
44          </dt>          </dt>
Legend:
Removed from v.38  
changed lines
  Added in v.48
  ViewVC Help
Powered by ViewVC 1.1.26