Parent Directory | Revision Log
loading of records from Model::Query now works
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 | set database => $q->on_database; | ||
20 | |||
21 | show '/sql.html'; | ||
22 | |||
23 | }; | ||
24 | |||
25 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |