/[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 94 by dpavlin, Mon Feb 5 22:04:59 2007 UTC revision 115 by dpavlin, Fri Apr 27 23:49:22 2007 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();
# 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 66  my $count = $date_coll->column( function Line 71  my $count = $date_coll->column( function
71  $date_coll->group_by( function => $created_on_date );  $date_coll->group_by( function => $created_on_date );
72  $date_coll->order_by( column => 'date', order => 'DESC' );  $date_coll->order_by( column => 'date', order => 'DESC' );
73  $date_coll->unlimit;  $date_coll->unlimit;
74    $date_coll->limit( column => 'on_database', value => $on_database ) if ( $on_database );
75    
76  #warn "## ", $date_coll->build_select_query;  #warn "## ", $date_coll->build_select_query;
77    
# Line 81  while (my $q = $date_coll->next) { Line 87  while (my $q = $date_coll->next) {
87                          onclick => {                          onclick => {
88                                  replace_with => '/fragments/queries',                                  replace_with => '/fragments/queries',
89                                  args => {                                  args => {
                                         on_database => $on_database || '',  
90                                          created_on => $date,                                          created_on => $date,
                                         order => $order,  
91                                  },                                  },
92                          },                          },
93                  ),                  ),
# Line 92  while (my $q = $date_coll->next) { Line 96  while (my $q = $date_coll->next) {
96          $dates++;       # why is this different from $date_coll->count ?          $dates++;       # why is this different from $date_coll->count ?
97  }  }
98    
99    my $u;
100    if ($reformat) {
101            use SQLSession::Utils;
102            $u = Jifty->app_class('Utils');
103    }
104    
105  </%init>  </%init>
106    
107  <div class="sort">  <div class="sort">
# Line 99  while (my $q = $date_coll->next) { Line 109  while (my $q = $date_coll->next) {
109  % if ( $dates > 0 ) {  % if ( $dates > 0 ) {
110  <% $date_menu->render_as_context_menu %>  <% $date_menu->render_as_context_menu %>
111  % }  % }
112    <ul class="context_menu">
113    <% Jifty->web->link(
114            label => $reformat ? 'Original formatting' : 'Pretty print SQL',
115            onclick => {
116                    replace_with => '/fragments/queries',
117                    args => {
118                            reformat => $reformat ? 0 : 1,
119                    },
120            },
121    ) %>
122    </ul>
123  </div>  </div>
124    
125  <dl style="clear: left;">  <dl style="clear: left;">
126  % $queries->goto_first_item;  % $queries->goto_first_item;
127  % while (my $q = $queries->next) {  % while (my $q = $queries->next) {
128            <div <% $q->visible ? '' : ' class=invisible' %>>
129          <dt><% Jifty->web->tangent(          <dt><% Jifty->web->tangent(
130                  url => '/sql/' . $q->id,                  url => '/sql/' . $q->id,
131                  label => $q->name,                  label => $q->name,
# Line 131  while (my $q = $date_coll->next) { Line 153  while (my $q = $date_coll->next) {
153  % if ($q->note) {  % if ($q->note) {
154          <div class="sql-note"><% $q->note %></div>          <div class="sql-note"><% $q->note %></div>
155  % }  % }
156          <pre class="sql"><% $q->sql_query %></pre>  % my $sql = $q->sql_query;
157    % $sql = $u->reformat_sql( $sql ) if ($reformat);
158            <pre class="sql"><% $sql %></pre>
159          </dd>          </dd>
160            </div>
161  % }  % }
162  </dl>  </dl>
Legend:
Removed from v.94  
changed lines
  Added in v.115
  ViewVC Help
Powered by ViewVC 1.1.26