Parent Directory | Revision Log
re-org of template names
1 | dpavlin | 20 | package SQLSession::Dispatcher; |
2 | |||
3 | use strict; | ||
4 | use warnings; | ||
5 | |||
6 | use Jifty::Dispatcher -base; | ||
7 | |||
8 | use Data::Dump qw/dump/; | ||
9 | |||
10 | under qr{sql/(\d+)} => run { | ||
11 | |||
12 | my $q = SQLSession::Model::Query->new(); | ||
13 | $q->load( $1 ) or next_rule; | ||
14 | |||
15 | warn "q = ",dump( $q ); | ||
16 | |||
17 | set sql_query => $q->sql_query; | ||
18 | set name => $q->name; | ||
19 | dpavlin | 21 | set database => $q->on_database->id; |
20 | dpavlin | 20 | |
21 | dpavlin | 22 | show '/sql'; |
22 | dpavlin | 20 | |
23 | }; | ||
24 | |||
25 | dpavlin | 22 | on 'new' => run { |
26 | show '/sql'; | ||
27 | dpavlin | 21 | }; |
28 | |||
29 | dpavlin | 22 | on '/' => run { |
30 | show '/list'; | ||
31 | }; | ||
32 | |||
33 | dpavlin | 20 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |