/[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 39 by dpavlin, Thu Jan 18 17:53:58 2007 UTC revision 45 by dpavlin, Sun Jan 21 12:19:58 2007 UTC
# Line 4  $database_id => undef Line 4  $database_id => undef
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    
12    warn "edit = $edit";
13    
14    
15  if ( $edit ) {  if ( $edit ) {
16          $queries->unlimit;          $queries->unlimit;
17  } else {  } else {
# Line 29  warn $queries->build_select_query; Line 36  warn $queries->build_select_query;
36  % if ( $edit ) {  % if ( $edit ) {
37          <tt>[<% $q->on_database->id . ': ' . $q->on_database->dsn %>]</tt>          <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>          </span>
45    
46          </dt>          </dt>
Legend:
Removed from v.39  
changed lines
  Added in v.45
  ViewVC Help
Powered by ViewVC 1.1.26