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

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

Parent Directory Parent Directory | Revision Log Revision Log


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

  ViewVC Help
Powered by ViewVC 1.1.26