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