/[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 38 by dpavlin, Sat May 27 16:53:01 2006 UTC
# Line 61  on qr'^/users?/?(\d*)', run { Line 61  on qr'^/users?/?(\d*)', run {
61                          record => $u                          record => $u
62                  );                  );
63    
                 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',  
                 );  
   
64                  show('/user_form');                  show('/user_form');
65          } else {          } else {
66                  my $u = Transports::Model::UserCollection->new();                  my $u = Transports::Model::UserCollection->new();
# Line 84  on qr'^/users?/?(\d*)', run { Line 70  on qr'^/users?/?(\d*)', run {
70          }          }
71  };  };
72    
 =head2 delete_user_on_system  
   
 =cut  
   
 on qr'^/delete_user_on_source/(\d+)', run {  
                 my $id = $1;  
                 my $u = Transports::Model::UserOnSource->new();  
                 $u->load_by_cols( id => $id );  
                 my $user_id = $u->user_on->id;  
                 $u->delete;  
                 redirect "/user/$user_id";  
 };  
   
   
73  =head1 Login and logout operations  =head1 Login and logout operations
74    
75  =head2 login  =head2 login
Legend:
Removed from v.37  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.26