/[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 37 by dpavlin, Sat May 27 15:56:52 2006 UTC
# Line 8  use Jifty::Dispatcher -base; Line 8  use Jifty::Dispatcher -base;
8    
9  =head1 Transports operations  =head1 Transports operations
10    
 =head2 transports  
   
 list of all transports  
   
 =cut  
   
 on 'transports', run {  
         my $transports = Transports::Model::TransportCollection->new();  
     $transports->unlimit();  
   
         set transports => $transports;  
 };  
   
11  =head2 new  =head2 new
12    
13  new transport  new transport
# Line 67  on qr'^/users?/?(\d*)', run { Line 54  on qr'^/users?/?(\d*)', run {
54                  my $u = Transports::Model::User->new();                  my $u = Transports::Model::User->new();
55                  $u->load_by_cols( id => $id );                  $u->load_by_cols( id => $id );
56    
57                    set user_id => $id;
58    
59                  set user => Jifty->web->new_action(                  set user => Jifty->web->new_action(
60                          class => $u->id ? 'UpdateUser' : 'CreateUser',                          class => $u->id ? 'UpdateUser' : 'CreateUser',
61                          record => $u                          record => $u
62                  );                  );
63    
64                    my $s = Transports::Model::UserOnSourceCollection->new;
65                    $s->limit(
66                            column          => 'user_on',
67                            value           => $id,
68                            quote_value     => 0,
69                    );
70                    $s->order_by( { column => 'source' } );
71                    set sources => $s;
72    
73                    set source => Jifty->web->new_action(
74                            class => 'CreateUserOnSource',
75                            monkier => 'create',
76                    );
77    
78                  show('/user_form');                  show('/user_form');
79          } else {          } else {
80                  my $u = Transports::Model::UserCollection->new();                  my $u = Transports::Model::UserCollection->new();
# Line 80  on qr'^/users?/?(\d*)', run { Line 84  on qr'^/users?/?(\d*)', run {
84          }          }
85  };  };
86    
87    =head2 delete_user_on_system
88    
89    =cut
90    
91    on qr'^/delete_user_on_source/(\d+)', run {
92                    my $id = $1;
93                    my $u = Transports::Model::UserOnSource->new();
94                    $u->load_by_cols( id => $id );
95                    my $user_id = $u->user_on->id;
96                    $u->delete;
97                    redirect "/user/$user_id";
98    };
99    
100    
101  =head1 Login and logout operations  =head1 Login and logout operations
102    
103  =head2 login  =head2 login
Legend:
Removed from v.31  
changed lines
  Added in v.37
  ViewVC Help
Powered by ViewVC 1.1.26