/[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 46 by dpavlin, Tue May 30 18:09:51 2006 UTC revision 57 by dpavlin, Mon Jun 5 15:09:51 2006 UTC
# Line 8  use Jifty::Dispatcher -base; Line 8  use Jifty::Dispatcher -base;
8    
9  =head1 Transports operations  =head1 Transports operations
10    
 =head2 new  
   
 new transport  
   
 =cut  
   
 on 'new', run {  
         my $t = Jifty->web->new_action(  
                 class => 'CreateTransport',  
                 monkier => 'create',  
         );  
   
         set transport => $t;  
 };  
   
11  =head2 /edit/42  =head2 /edit/42
12    
13  edit transport with request number C<42>  edit transport with request number C<42>
# Line 63  edit user with id C<42> Line 48  edit user with id C<42>
48    
49  =cut  =cut
50    
51  on qr'^/users?/?(\d*)', run {  on qr'^/user/(\d+)', run {
52          my $id = $1;          my $u = Transports::Model::User->new();
53            $u->load_by_cols( id => $1 );
54    
55            set user_id => $1;
56    
57            set user => Jifty->web->new_action(
58                    class => $u->id ? 'UpdateUser' : 'CreateUser',
59                    record => $u
60            );
61    
62          if ($id) {          show('/user_form');
                 my $u = Transports::Model::User->new();  
                 $u->load_by_cols( id => $id );  
   
                 set user_id => $id;  
   
                 set user => Jifty->web->new_action(  
                         class => $u->id ? 'UpdateUser' : 'CreateUser',  
                         record => $u  
                 );  
   
                 show('/user_form');  
         } else {  
                 my $u = Transports::Model::UserCollection->new();  
                 $u->unlimit();  
                 set users => $u;  
                 show('/users');  
         }  
63  };  };
64    
65  =head1 Login and logout operations  =head1 Login and logout operations
Legend:
Removed from v.46  
changed lines
  Added in v.57
  ViewVC Help
Powered by ViewVC 1.1.26