/[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 21 by dpavlin, Sun Dec 3 19:47:39 2006 UTC revision 39 by dpavlin, Thu Jan 18 17:53:58 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            $top->child( 'List' => url => '/list' );
15    };
16    
17    
18    
19  under qr{sql/(\d+)} => run {  under qr{sql/(\d+)} => run {
20    
21          my $q = SQLSession::Model::Query->new();          my $q = SQLSession::Model::Query->new();
# Line 18  under qr{sql/(\d+)} => run { Line 27  under qr{sql/(\d+)} => run {
27          set name => $q->name;          set name => $q->name;
28          set database => $q->on_database->id;          set database => $q->on_database->id;
29    
30          show '/sql.html';          show '/sql';
31    
32    };
33    
34    under 'list' => [
35    
36            on qr{database/(\d+)} => run {
37                    set database_id => $1;
38            },
39    
40            show '/list',
41    ];
42    
43    on 'new' => run {
44            show '/sql';
45  };  };
46    
47  under 'new' => run {  on '/' => run {
48          show '/sql.html';          redirect '/list';
49  };  };
50    
51  1;  1;
Legend:
Removed from v.21  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.26