/[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 87 by dpavlin, Mon Feb 5 18:27:46 2007 UTC revision 100 by dpavlin, Fri Feb 16 22:21:07 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 17  $queries->limit( column => 'on_database' Line 18  $queries->limit( column => 'on_database'
18  $queries->limit( column => 'created_on', operator => 'STARTSWITH', value => $created_on ) if ( $created_on );  $queries->limit( column => 'created_on', operator => 'STARTSWITH', value => $created_on ) if ( $created_on );
19  $queries->order_by( column => $order, order => 'asc' );  $queries->order_by( column => $order, order => 'asc' );
20    
21  warn $queries->build_select_query,$/;  #warn $queries->build_select_query,$/;
22    
23  warn "order: $order\n";  my $sort_label = {
24            name    => 'Query name',
25            created_on => 'Creation date',
26            owner => 'Creator',
27    };
28    
29    my $sort_menu = Jifty::Web::Menu->new( label => 'Sort by: ' . $sort_label->{$order} );
30    foreach my $c ( qw/name created_on owner/ ) {
31            #next if ($c eq $order);
32            $sort_menu->child( $c,
33                    active => $c eq $order,
34                    link => Jifty->web->link(
35                            label => $sort_label->{$c},
36                            onclick => {
37                                    replace_with => '/fragments/queries',
38                                    args => {
39                                            on_database => $on_database || '',
40                                            created_on => $created_on || '',
41                                            order => $c,
42                                    },
43                            },
44                    ),
45            );
46    }
47    
48    my $date_menu = Jifty::Web::Menu->new( label => 'Date filter' . ( $created_on ? ": $created_on" : '' ) );
49    $date_menu->child( 'clear',
50            link => Jifty->web->link(
51                    label => 'clear',
52                    onclick => {
53                            replace_with => '/fragments/queries',
54                            args => {
55                                    on_database => $on_database || '',
56                                    created_on => '',
57                                    order => $order,
58                            },
59                    },
60            ),
61    ) if ($created_on);
62    
63  </%init>  # select created_on,count(date(created_on)) from queries group by date(created_on) order by created_on;
64    my $date_coll = SQLSession::Model::QueryCollection->new( results_are_readable => 1 );
65    my $created_on_date = $date_coll->column( function => 'date(created_on)', column => 'date' );
66    my $count = $date_coll->column( function => 'count(date(created_on))', column => 'count' );
67    $date_coll->group_by( function => $created_on_date );
68    $date_coll->order_by( column => 'date', order => 'DESC' );
69    $date_coll->unlimit;
70    $date_coll->limit( column => 'on_database', value => $on_database ) if ( $on_database );
71    
72    #warn "## ", $date_coll->build_select_query;
73    
74    my $dates = 0;
75    
76    while (my $q = $date_coll->next) {
77            my $date = $q->{values}->{date} || die "no date?";
78            my $count = $q->{values}->{count} || die "no count?";
79            $date_menu->child( $date,
80                    active => $created_on && $created_on eq $date ? 1 : 0,
81                    link => Jifty->web->link(
82                            label => "$date ($count)",
83                            onclick => {
84                                    replace_with => '/fragments/queries',
85                                    args => {
86                                            on_database => $on_database || '',
87                                            created_on => $date,
88                                            order => $order,
89                                    },
90                            },
91                    ),
92            );
93    
94            $dates++;       # why is this different from $date_coll->count ?
95    }
96    
97    my $u;
98    if ($reformat) {
99            use SQLSession::Utils qw(reformat_sql);
100            $u = Jifty->app_class('Utils');
101    }
102    
103  Sort by:  </%init>
 % foreach my $c ( qw/name created_on owner/ ) {  
 <% $order ne $c ? Jifty->web->link(  
         label => $c,  
         onclick => {  
                 replace_with => '/fragments/queries',  
                 args => {  
                         on_database => $on_database || '',  
                         created_on => $created_on || '',  
                         order => $c,  
                 },  
         },  
         #as_button => 1,  
 ) : $c %>  
 % }  
104    
105  % if ($created_on) {  <div class="sort">
106  Filter:  <% $sort_menu->render_as_context_menu %>
107  <% Jifty->web->link(  % if ( $dates > 0 ) {
108          label => $created_on,  <% $date_menu->render_as_context_menu %>
         onclick => {  
                 replace_with => '/fragments/queries',  
                 args => {  
                         on_database => $on_database || '',  
                         order => $order,  
                 },  
         },  
         #as_button => 1,  
 ) %>  
109  % }  % }
110    </div>
111    
112  <dl>  <dl style="clear: left;">
113    % $queries->goto_first_item;
114  % while (my $q = $queries->next) {  % while (my $q = $queries->next) {
115          <dt><% Jifty->web->tangent(          <dt><% Jifty->web->tangent(
116                  url => '/sql/' . $q->id,                  url => '/sql/' . $q->id,
# Line 83  Filter: Line 139  Filter:
139  % if ($q->note) {  % if ($q->note) {
140          <div class="sql-note"><% $q->note %></div>          <div class="sql-note"><% $q->note %></div>
141  % }  % }
142          <pre class="sql"><% $q->sql_query %></pre>  % my $sql = $q->sql_query;
143    % $sql = $u->reformat_sql( $sql ) if ($reformat);
144            <pre class="sql"><% $sql %></pre>
145          </dd>          </dd>
146  % }  % }
147  </dl>  </dl>
Legend:
Removed from v.87  
changed lines
  Added in v.100
  ViewVC Help
Powered by ViewVC 1.1.26