/[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 33 by dpavlin, Sat May 27 10:45:54 2006 UTC revision 46 by dpavlin, Tue May 30 18: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 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 52  on qr'^/edit/(\d+)', run { Line 39  on qr'^/edit/(\d+)', run {
39          show('/edit');          show('/edit');
40  };  };
41    
42    =head2 /import/42
43    
44    import transport with request number C<42>
45    
46    =cut
47    
48    on qr'^/import/(\d+)', run {
49            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            set transport => Jifty->web->new_action( class => 'UpdateTransport', record => $t );
55            show('/import');
56    };
57    
58  =head1 User operations  =head1 User operations
59    
60  =head2 /user/42  =head2 /user/42
# Line 74  on qr'^/users?/?(\d*)', run { Line 77  on qr'^/users?/?(\d*)', run {
77                          record => $u                          record => $u
78                  );                  );
79    
                 my $s = Transports::Model::UserOnSourceCollection->new;  
                 $s->limit(  
                         column          => 'user_on',  
                         value           => $id,  
                         quote_value     => 0,  
                 );  
                 $s->order_by( { column => 'source' } );  
                 set sources => $s;  
   
80                  show('/user_form');                  show('/user_form');
81          } else {          } else {
82                  my $u = Transports::Model::UserCollection->new();                  my $u = Transports::Model::UserCollection->new();
# Line 98  on qr'^/users?/?(\d*)', run { Line 92  on qr'^/users?/?(\d*)', run {
92    
93  =cut  =cut
94    
95  on 'login', run {  on qr'^/login(/.*)?$', run {
96    
97            my $return_url = $1 || '/';
98    
99      set 'action' =>      set 'action' =>
100          Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );          Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );
101      set 'next' => Jifty->web->request->continuation      set 'next' => Jifty->web->request->continuation
102          || Jifty::Continuation->new(          || Jifty::Continuation->new(
103          request => Jifty::Request->new( path => "/" ) );          request => Jifty::Request->new( path => $return_url ) );
104            show '/login';
105  };  };
106    
107  =head2 logout  =head2 logout
Legend:
Removed from v.33  
changed lines
  Added in v.46
  ViewVC Help
Powered by ViewVC 1.1.26