--- trunk/lib/Transports/Dispatcher.pm	2006/05/26 21:21:25	27
+++ trunk/lib/Transports/Dispatcher.pm	2006/05/26 23:25:35	31
@@ -6,14 +6,28 @@
 #    redirect( '/new');
 #};
 
-on '/transports', run {
+=head1 Transports operations
+
+=head2 transports
+
+list of all transports
+
+=cut
+
+on 'transports', run {
 	my $transports = Transports::Model::TransportCollection->new();
     $transports->unlimit();
 
 	set transports => $transports;
 };
 
-on '/new', run {
+=head2 new
+
+new transport
+
+=cut
+
+on 'new', run {
 	my $t = Jifty->web->new_action(
 		class => 'CreateTransport',
 		monkier => 'create',
@@ -22,7 +36,13 @@
 	set transport => $t;
 };
 
-on qr'/edit/(\d+)', run {
+=head2 /edit/42
+
+edit transport with request number C<42>
+
+=cut
+
+on qr'^/edit/(\d+)', run {
 	my $id = $1;
 	my $t = Transports::Model::Transport->new();
 	$t->load_by_cols( id => $id );
@@ -32,8 +52,40 @@
 	show('/edit');
 };
 
+=head1 User operations
+
+=head2 /user/42
+
+edit user with id C<42>
+
+=cut
+
+on qr'^/users?/?(\d*)', run {
+	my $id = $1;
+
+	if ($id) {
+		my $u = Transports::Model::User->new();
+		$u->load_by_cols( 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');
+	}
+};
+
+=head1 Login and logout operations
+
+=head2 login
+
+=cut
 
-# Login
 on 'login', run {
     set 'action' =>
         Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );
@@ -42,7 +94,10 @@
         request => Jifty::Request->new( path => "/" ) );
 };
 
-# Log out
+=head2 logout
+
+=cut
+
 before 'logout', run {
     Jifty->web->request->add_action(
         moniker => 'logout',