/[SQLSession]/trunk/lib/SQLSession/Dispatcher.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/SQLSession/Dispatcher.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 20 by dpavlin, Sun Dec 3 18:03:30 2006 UTC revision 40 by dpavlin, Thu Jan 18 18:16:32 2007 UTC
# Line 7  use Jifty::Dispatcher -base; Line 7  use Jifty::Dispatcher -base;
7    
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9    
10    before '*' => run {
11            my $top = Jifty->web->navigation;
12            my $edit = Jifty->config->app('edit');
13            $top->child( 'New' => url => '/new' ) if ($edit);
14            my $l = $top->child( 'List' => url => '/list' );
15    
16            my $databases = SQLSession::Model::DatabaseCollection->new();
17            $databases->unlimit;
18            while ( my $db = $databases->next ) {
19                    my $label = $db->name;
20    #               $label .= ' [' . $db->dsn . ']' if ($edit);
21                    $l->child( $label => url => '/list/database/' . $db->id );
22            }
23    
24    };
25    
26    
27    
28  under qr{sql/(\d+)} => run {  under qr{sql/(\d+)} => run {
29    
30          my $q = SQLSession::Model::Query->new();          my $q = SQLSession::Model::Query->new();
# Line 16  under qr{sql/(\d+)} => run { Line 34  under qr{sql/(\d+)} => run {
34    
35          set sql_query => $q->sql_query;          set sql_query => $q->sql_query;
36          set name => $q->name;          set name => $q->name;
37          set database => $q->on_database;          set database => $q->on_database->id;
38    
39            show '/sql';
40    
41          show '/sql.html';  };
42    
43    under 'list' => [
44    
45            on qr{database/(\d+)} => run {
46                    set database_id => $1;
47            },
48    
49            show '/list',
50    ];
51    
52    on 'new' => run {
53            show '/sql';
54    };
55    
56    on '/' => run {
57            redirect '/list';
58  };  };
59    
60  1;  1;
Legend:
Removed from v.20  
changed lines
  Added in v.40
  ViewVC Help
Powered by ViewVC 1.1.26