Parent Directory | Revision Log | Patch
revision 58 by dpavlin, Thu Jan 25 13:08:06 2007 UTC | revision 78 by dpavlin, Mon Jan 29 20:11:20 2007 UTC | |
---|---|---|
# | Line 39 before '*' => run { | Line 39 before '*' => run { |
39 | }; | }; |
40 | ||
41 | ||
42 | under qr{sql/(\d+)} => run { | under qr{sql/(\d+)} => run { |
43 | ||
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 ); | # warn "q = ",dump( $q ); |
48 | ||
49 | set sql_query => $q->sql_query; | set q => $q; |
set name => $q->name; | ||
set database => $q->on_database->id; | ||
50 | ||
51 | show '/sql'; | show '/sql'; |
52 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |