/[SQLSession]/trunk/share/web/templates/fragments/queries
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/fragments/queries

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 96 by dpavlin, Mon Feb 5 22:13:07 2007 UTC revision 117 by dpavlin, Thu Mar 27 00:20:44 2008 UTC
# Line 1  Line 1 
1  <%args>  <%args>
2  $on_database => undef  $on_database => undef
3  $created_on => undef;  $created_on => undef
4  $order  $order
5    $reformat => 0
6  </%args>  </%args>
7  <%init>  <%init>
8  my $queries = SQLSession::Model::QueryCollection->new();  my $queries = SQLSession::Model::QueryCollection->new();
9    
10  my $edit = Jifty->web->current_user->role('edit');  my $edit = Jifty->web->current_user->role('edit');
11    
12  #use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
13  #warn "current_user = ", dump( Jifty->web->current_user );  #warn "current_user = ", dump( Jifty->web->current_user );
14  #warn "edit = $edit";  #warn "edit = $edit";
15    
# Line 19  $queries->order_by( column => $order, or Line 20  $queries->order_by( column => $order, or
20    
21  #warn $queries->build_select_query,$/;  #warn $queries->build_select_query,$/;
22    
23    ###
24    ### sort by
25    ###
26    
27  my $sort_label = {  my $sort_label = {
28          name    => 'Query name',          name    => 'Query name',
29          created_on => 'Creation date',          created_on => 'Creation date',
# Line 35  foreach my $c ( qw/name created_on owner Line 40  foreach my $c ( qw/name created_on owner
40                          onclick => {                          onclick => {
41                                  replace_with => '/fragments/queries',                                  replace_with => '/fragments/queries',
42                                  args => {                                  args => {
                                         on_database => $on_database || '',  
                                         created_on => $created_on || '',  
43                                          order => $c,                                          order => $c,
44                                  },                                  },
45                          },                          },
# Line 44  foreach my $c ( qw/name created_on owner Line 47  foreach my $c ( qw/name created_on owner
47          );          );
48  }  }
49    
50    ###
51    ### date filter
52    ###
53    
54  my $date_menu = Jifty::Web::Menu->new( label => 'Date filter' . ( $created_on ? ": $created_on" : '' ) );  my $date_menu = Jifty::Web::Menu->new( label => 'Date filter' . ( $created_on ? ": $created_on" : '' ) );
55  $date_menu->child( 'clear',  $date_menu->child( 'clear',
56          link => Jifty->web->link(          link => Jifty->web->link(
# Line 51  $date_menu->child( 'clear', Line 58  $date_menu->child( 'clear',
58                  onclick => {                  onclick => {
59                          replace_with => '/fragments/queries',                          replace_with => '/fragments/queries',
60                          args => {                          args => {
                                 on_database => $on_database || '',  
61                                  created_on => '',                                  created_on => '',
                                 order => $order,  
62                          },                          },
63                  },                  },
64          ),          ),
# Line 73  $date_coll->limit( column => 'on_databas Line 78  $date_coll->limit( column => 'on_databas
78  my $dates = 0;  my $dates = 0;
79    
80  while (my $q = $date_coll->next) {  while (my $q = $date_coll->next) {
81          my $date = $q->{values}->{date} || die "no date?";          warn dump( $q );
82          my $count = $q->{values}->{count} || die "no count?";          my $date = $q->{values}->{date} || warn "no date?";
83          $date_menu->child( $date,          my $count = $q->{values}->{count} || warn "no count?";
84                  active => $created_on && $created_on eq $date ? 1 : 0,          if ( $date && $count ) {
85                  link => Jifty->web->link(                  $date_menu->child( $date,
86                          label => "$date ($count)",                          active => $created_on && $created_on eq $date ? 1 : 0,
87                          onclick => {                          link => Jifty->web->link(
88                                  replace_with => '/fragments/queries',                                  label => "$date ($count)",
89                                  args => {                                  onclick => {
90                                          on_database => $on_database || '',                                          replace_with => '/fragments/queries',
91                                          created_on => $date,                                          args => {
92                                          order => $order,                                                  created_on => $date,
93                                            },
94                                  },                                  },
95                          },                          ),
96                  ),                  );
         );  
97    
98          $dates++;       # why is this different from $date_coll->count ?                  $dates++;       # why is this different from $date_coll->count ?
99            };
100    }
101    
102    my $u;
103    if ($reformat) {
104            use SQLSession::Utils;
105            $u = Jifty->app_class('Utils');
106  }  }
107    
108  </%init>  </%init>
# Line 100  while (my $q = $date_coll->next) { Line 112  while (my $q = $date_coll->next) {
112  % if ( $dates > 0 ) {  % if ( $dates > 0 ) {
113  <% $date_menu->render_as_context_menu %>  <% $date_menu->render_as_context_menu %>
114  % }  % }
115    <ul class="context_menu">
116    <% Jifty->web->link(
117            label => $reformat ? 'Original formatting' : 'Pretty print SQL',
118            onclick => {
119                    replace_with => '/fragments/queries',
120                    args => {
121                            reformat => $reformat ? 0 : 1,
122                    },
123            },
124    ) %>
125    </ul>
126  </div>  </div>
127    
128  <dl style="clear: left;">  <dl style="clear: left;">
129  % $queries->goto_first_item;  % $queries->goto_first_item;
130  % while (my $q = $queries->next) {  % while (my $q = $queries->next) {
131            <div <% $q->visible ? '' : ' class=invisible' %>>
132          <dt><% Jifty->web->tangent(          <dt><% Jifty->web->tangent(
133                  url => '/sql/' . $q->id,                  url => '/sql/' . $q->id,
134                  label => $q->name,                  label => $q->name,
# Line 132  while (my $q = $date_coll->next) { Line 156  while (my $q = $date_coll->next) {
156  % if ($q->note) {  % if ($q->note) {
157          <div class="sql-note"><% $q->note %></div>          <div class="sql-note"><% $q->note %></div>
158  % }  % }
159          <pre class="sql"><% $q->sql_query %></pre>  % my $sql = $q->sql_query;
160    % $sql = $u->reformat_sql( $sql ) if ($reformat);
161            <pre class="sql"><% $sql %></pre>
162          </dd>          </dd>
163            </div>
164  % }  % }
165  </dl>  </dl>
Legend:
Removed from v.96  
changed lines
  Added in v.117
  ViewVC Help
Powered by ViewVC 1.1.26