/[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 31 by dpavlin, Fri May 26 23:25:35 2006 UTC revision 34 by dpavlin, Sat May 27 13:30:54 2006 UTC
# Line 67  on qr'^/users?/?(\d*)', run { Line 67  on qr'^/users?/?(\d*)', run {
67                  my $u = Transports::Model::User->new();                  my $u = Transports::Model::User->new();
68                  $u->load_by_cols( id => $id );                  $u->load_by_cols( id => $id );
69    
70                    set user_id => $id;
71    
72                  set user => Jifty->web->new_action(                  set user => Jifty->web->new_action(
73                          class => $u->id ? 'UpdateUser' : 'CreateUser',                          class => $u->id ? 'UpdateUser' : 'CreateUser',
74                          record => $u                          record => $u
75                  );                  );
76    
77                    my $s = Transports::Model::UserOnSourceCollection->new;
78                    $s->limit(
79                            column          => 'user_on',
80                            value           => $id,
81                            quote_value     => 0,
82                    );
83                    $s->order_by( { column => 'source' } );
84                    set sources => $s;
85    
86                    set source => Jifty->web->new_action(
87                            class => 'CreateUserOnSource',
88                            monkier => 'create',
89                    );
90    
91                  show('/user_form');                  show('/user_form');
92          } else {          } else {
93                  my $u = Transports::Model::UserCollection->new();                  my $u = Transports::Model::UserCollection->new();
# Line 80  on qr'^/users?/?(\d*)', run { Line 97  on qr'^/users?/?(\d*)', run {
97          }          }
98  };  };
99    
100    =head2 delete_user_on_system
101    
102    =cut
103    
104    on qr'^/delete_user_on_source/(\d+)', run {
105                    my $id = $1;
106                    my $u = Transports::Model::UserOnSource->new();
107                    $u->load_by_cols( id => $id );
108                    my $user_id = $u->user_on->id;
109                    $u->delete;
110                    redirect "/user/$user_id";
111    };
112    
113    
114  =head1 Login and logout operations  =head1 Login and logout operations
115    
116  =head2 login  =head2 login
Legend:
Removed from v.31  
changed lines
  Added in v.34
  ViewVC Help
Powered by ViewVC 1.1.26