44 |
my $q = SQLSession::Model::Query->new(); |
my $q = SQLSession::Model::Query->new(); |
45 |
$q->load( $1 ) or next_rule; |
$q->load( $1 ) or next_rule; |
46 |
|
|
47 |
# warn "q = ",dump( $q ); |
set parent => $1; |
|
|
|
48 |
set q => $q; |
set q => $q; |
49 |
|
|
50 |
|
# Jifty->log->debug( "parent = $1, q = ",dump($q) ); |
51 |
|
|
52 |
show '/sql'; |
show '/sql'; |
53 |
|
|
54 |
}; |
}; |
56 |
under 'list' => [ |
under 'list' => [ |
57 |
|
|
58 |
on qr{database/(\d+)} => run { |
on qr{database/(\d+)} => run { |
59 |
set database_id => $1; |
set on_database => $1; |
60 |
|
}, |
61 |
|
|
62 |
|
on qr{date/(\d{4}-\d+-\d+)} => run { |
63 |
|
set created_on => $1; |
64 |
}, |
}, |
65 |
|
|
66 |
show '/list', |
show '/list', |