/[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

Annotation of /trunk/share/web/templates/fragments/queries

Parent Directory Parent Directory | Revision Log Revision Log


Revision 87 - (hide annotations)
Mon Feb 5 18:27:46 2007 UTC (17 years, 1 month ago) by dpavlin
File size: 1838 byte(s)
added REST date filter: /list/date/yyyy-mm-dd
1 dpavlin 77 <%args>
2 dpavlin 84 $on_database => undef
3 dpavlin 87 $created_on => undef;
4 dpavlin 77 $order
5     </%args>
6     <%init>
7     my $queries = SQLSession::Model::QueryCollection->new();
8    
9     my $edit = Jifty->web->current_user->role('edit');
10    
11     #use Data::Dump qw/dump/;
12     #warn "current_user = ", dump( Jifty->web->current_user );
13     #warn "edit = $edit";
14    
15     $queries->unlimit;
16 dpavlin 84 $queries->limit( column => 'on_database', value => $on_database ) if ( $on_database );
17 dpavlin 87 $queries->limit( column => 'created_on', operator => 'STARTSWITH', value => $created_on ) if ( $created_on );
18 dpavlin 77 $queries->order_by( column => $order, order => 'asc' );
19    
20     warn $queries->build_select_query,$/;
21    
22     warn "order: $order\n";
23    
24     </%init>
25    
26     Sort by:
27     % foreach my $c ( qw/name created_on owner/ ) {
28     <% $order ne $c ? Jifty->web->link(
29     label => $c,
30     onclick => {
31     replace_with => '/fragments/queries',
32     args => {
33 dpavlin 87 on_database => $on_database || '',
34     created_on => $created_on || '',
35 dpavlin 77 order => $c,
36     },
37     },
38     #as_button => 1,
39     ) : $c %>
40     % }
41    
42 dpavlin 87 % if ($created_on) {
43     Filter:
44     <% Jifty->web->link(
45     label => $created_on,
46     onclick => {
47     replace_with => '/fragments/queries',
48     args => {
49     on_database => $on_database || '',
50     order => $order,
51     },
52     },
53     #as_button => 1,
54     ) %>
55     % }
56    
57 dpavlin 77 <dl>
58     % while (my $q = $queries->next) {
59     <dt><% Jifty->web->tangent(
60     url => '/sql/' . $q->id,
61     label => $q->name,
62     ) %>
63    
64     <span class="database-name">
65     <% $q->on_database->name %>
66     |
67     <% defined($q->owner->name) ? $q->owner->name : '?' %>
68     |
69     <% $q->created_on->ymd . ' ' . $q->created_on->hms %>
70    
71     <span class="database-schema">
72     <%perl>
73     my $name = $q->on_database->dsn;
74     $name =~ s/^.*dbname=//;
75     $m->out("<a href=\"/static/spy/$name/index.html\" target=\"_spy\">$name shema</a>");
76     </%perl>
77     </span>
78    
79     </span>
80    
81     </dt>
82     <dd>
83     % if ($q->note) {
84     <div class="sql-note"><% $q->note %></div>
85     % }
86     <pre class="sql"><% $q->sql_query %></pre>
87     </dd>
88     % }
89     </dl>

  ViewVC Help
Powered by ViewVC 1.1.26