/[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 37 by dpavlin, Sat May 27 15:56:52 2006 UTC revision 55 by dpavlin, Mon Jun 5 14:27:50 2006 UTC
# Line 39  on qr'^/edit/(\d+)', run { Line 39  on qr'^/edit/(\d+)', run {
39          show('/edit');          show('/edit');
40  };  };
41    
42  =head1 User operations  =head2 /import/42
   
 =head2 /user/42  
43    
44  edit user with id C<42>  import transport with request number C<42>
45    
46  =cut  =cut
47    
48  on qr'^/users?/?(\d*)', run {  on qr'^/import/(\d+)', run {
49          my $id = $1;          my $id = $1;
50            my $t = Transports::Model::Transport->new();
51            $t->load_by_cols( id => $id );
52            Jifty->web->redirect( '/transports' ) unless ( $t->id );
53    
54          if ($id) {          set transport => Jifty->web->new_action( class => 'UpdateTransport', record => $t );
55                  my $u = Transports::Model::User->new();          show('/import');
                 $u->load_by_cols( id => $id );  
   
                 set user_id => $id;  
   
                 set user => Jifty->web->new_action(  
                         class => $u->id ? 'UpdateUser' : 'CreateUser',  
                         record => $u  
                 );  
   
                 my $s = Transports::Model::UserOnSourceCollection->new;  
                 $s->limit(  
                         column          => 'user_on',  
                         value           => $id,  
                         quote_value     => 0,  
                 );  
                 $s->order_by( { column => 'source' } );  
                 set sources => $s;  
   
                 set source => Jifty->web->new_action(  
                         class => 'CreateUserOnSource',  
                         monkier => 'create',  
                 );  
   
                 show('/user_form');  
         } else {  
                 my $u = Transports::Model::UserCollection->new();  
                 $u->unlimit();  
                 set users => $u;  
                 show('/users');  
         }  
56  };  };
57    
58  =head2 delete_user_on_system  =head1 User operations
59    
60    =head2 /user/42
61    
62    edit user with id C<42>
63    
64  =cut  =cut
65    
66  on qr'^/delete_user_on_source/(\d+)', run {  on qr'^/user/(\d+)', run {
67                  my $id = $1;          my $u = Transports::Model::User->new();
68                  my $u = Transports::Model::UserOnSource->new();          $u->load_by_cols( id => $1 );
69                  $u->load_by_cols( id => $id );  
70                  my $user_id = $u->user_on->id;          set user_id => $1;
71                  $u->delete;  
72                  redirect "/user/$user_id";          set user => Jifty->web->new_action(
73  };                  class => $u->id ? 'UpdateUser' : 'CreateUser',
74                    record => $u
75            );
76    
77            show('/user_form');
78    };
79    
80  =head1 Login and logout operations  =head1 Login and logout operations
81    
# Line 104  on qr'^/delete_user_on_source/(\d+)', ru Line 83  on qr'^/delete_user_on_source/(\d+)', ru
83    
84  =cut  =cut
85    
86  on 'login', run {  on qr'^/login(/.*)?$', run {
87    
88            my $return_url = $1 || '/';
89    
90      set 'action' =>      set 'action' =>
91          Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );          Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );
92      set 'next' => Jifty->web->request->continuation      set 'next' => Jifty->web->request->continuation
93          || Jifty::Continuation->new(          || Jifty::Continuation->new(
94          request => Jifty::Request->new( path => "/" ) );          request => Jifty::Request->new( path => $return_url ) );
95            show '/login';
96  };  };
97    
98  =head2 logout  =head2 logout
Legend:
Removed from v.37  
changed lines
  Added in v.55
  ViewVC Help
Powered by ViewVC 1.1.26