/[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 76 by dpavlin, Sun Jan 28 00:46:48 2007 UTC revision 77 by dpavlin, Sun Jan 28 15:24:42 2007 UTC
# Line 3  $database_id => undef Line 3  $database_id => undef
3  $order => 'name'  $order => 'name'
4  </%args>  </%args>
5  <%init>  <%init>
6  my $queries = SQLSession::Model::QueryCollection->new();  my $queries_region = Jifty::Web::PageRegion->new(
7            name => 'queries',
8  my $edit = Jifty->web->current_user->role('edit');          path => '/fragments/queries',
9            defaults => {
10  #use Data::Dump qw/dump/;                  database_id => $database_id,
11  #warn "current_user = ", dump( Jifty->web->current_user );                  order => $order
12  #warn "edit = $edit";          },
13    );
 $queries->unlimit;  
 $queries->limit( column => 'on_database', value => $database_id ) if ( $database_id );  
 $queries->order_by( column => $order, order => 'asc' );  
   
 warn $queries->build_select_query;  
   
14  </%init>  </%init>
15    
 <&| /_elements/wrapper, title => "Available queries" &>  
 <dl>  
 % while (my $q = $queries->next) {  
         <dt><% Jifty->web->tangent(  
                 url => '/sql/' . $q->id,  
                 label => $q->name,  
         ) %>  
   
         <span class="database-name">  
         <% $q->on_database->name %>  
         |  
         <% $q->owner ? $q->owner->name : '?' %>  
         |  
         <% $q->created_on->ymd . ' ' . $q->created_on->hms %>  
16    
17  % if ( $edit ) {  <&| /_elements/wrapper, title => "Available queries" &>
         <tt>[<% $q->on_database->id . ': ' . $q->on_database->dsn %>]</tt>  
 % }  
         <span class="database-schema">  
         <%perl>  
         my $name = $q->on_database->dsn;  
         $name =~ s/^.*dbname=//;  
         $m->out("<a href=\"/static/spy/$name/index.html\" target=\"_spy\">$name shema</a>");  
         </%perl>  
         </span>  
18    
19          </span>  <% $queries_region->render %>
20    
         </dt>  
         <dd>  
 % if ($q->note) {  
         <div class="sql-note"><% $q->note %></div>  
 % }  
         <pre class="sql"><% $q->sql_query %></pre>  
         </dd>  
 % }  
 </dl>  
21  </&>  </&>
22    
23  % if ( $edit ) {  % if ( Jifty->web->current_user->role('edit') ) {
24  <% Jifty->web->tangent(  <% Jifty->web->tangent(
25          url => '/new',          url => '/new',
26          parameters => { database => $database_id },          parameters => { database => $database_id },
Legend:
Removed from v.76  
changed lines
  Added in v.77
  ViewVC Help
Powered by ViewVC 1.1.26