/[transports]/trunk/lib/Transports/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/Transports/Dispatcher.pm

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

revision 30 by dpavlin, Fri May 26 21:21:25 2006 UTC revision 31 by dpavlin, Fri May 26 23:25:35 2006 UTC
# Line 6  use Jifty::Dispatcher -base; Line 6  use Jifty::Dispatcher -base;
6  #    redirect( '/new');  #    redirect( '/new');
7  #};  #};
8    
9  on '/transports', run {  =head1 Transports operations
10    
11    =head2 transports
12    
13    list of all transports
14    
15    =cut
16    
17    on 'transports', run {
18          my $transports = Transports::Model::TransportCollection->new();          my $transports = Transports::Model::TransportCollection->new();
19      $transports->unlimit();      $transports->unlimit();
20    
21          set transports => $transports;          set transports => $transports;
22  };  };
23    
24  on '/new', run {  =head2 new
25    
26    new transport
27    
28    =cut
29    
30    on 'new', run {
31          my $t = Jifty->web->new_action(          my $t = Jifty->web->new_action(
32                  class => 'CreateTransport',                  class => 'CreateTransport',
33                  monkier => 'create',                  monkier => 'create',
# Line 22  on '/new', run { Line 36  on '/new', run {
36          set transport => $t;          set transport => $t;
37  };  };
38    
39  on qr'/edit/(\d+)', run {  =head2 /edit/42
40    
41    edit transport with request number C<42>
42    
43    =cut
44    
45    on qr'^/edit/(\d+)', run {
46          my $id = $1;          my $id = $1;
47          my $t = Transports::Model::Transport->new();          my $t = Transports::Model::Transport->new();
48          $t->load_by_cols( id => $id );          $t->load_by_cols( id => $id );
# Line 32  on qr'/edit/(\d+)', run { Line 52  on qr'/edit/(\d+)', run {
52          show('/edit');          show('/edit');
53  };  };
54    
55    =head1 User operations
56    
57    =head2 /user/42
58    
59    edit user with id C<42>
60    
61    =cut
62    
63    on qr'^/users?/?(\d*)', run {
64            my $id = $1;
65    
66            if ($id) {
67                    my $u = Transports::Model::User->new();
68                    $u->load_by_cols( id => $id );
69    
70                    set user => Jifty->web->new_action(
71                            class => $u->id ? 'UpdateUser' : 'CreateUser',
72                            record => $u
73                    );
74                    show('/user_form');
75            } else {
76                    my $u = Transports::Model::UserCollection->new();
77                    $u->unlimit();
78                    set users => $u;
79                    show('/users');
80            }
81    };
82    
83    =head1 Login and logout operations
84    
85    =head2 login
86    
87    =cut
88    
 # Login  
89  on 'login', run {  on 'login', run {
90      set 'action' =>      set 'action' =>
91          Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );          Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );
# Line 42  on 'login', run { Line 94  on 'login', run {
94          request => Jifty::Request->new( path => "/" ) );          request => Jifty::Request->new( path => "/" ) );
95  };  };
96    
97  # Log out  =head2 logout
98    
99    =cut
100    
101  before 'logout', run {  before 'logout', run {
102      Jifty->web->request->add_action(      Jifty->web->request->add_action(
103          moniker => 'logout',          moniker => 'logout',
Legend:
Removed from v.30  
changed lines
  Added in v.31
  ViewVC Help
Powered by ViewVC 1.1.26