--- trunk/lib/Transports/Dispatcher.pm	2006/05/27 10:45:54	33
+++ trunk/lib/Transports/Dispatcher.pm	2006/05/27 13:30:54	34
@@ -83,6 +83,11 @@
 		$s->order_by( { column => 'source' } );
 		set sources => $s;
 
+		set source => Jifty->web->new_action(
+			class => 'CreateUserOnSource',
+			monkier => 'create',
+		);
+
 		show('/user_form');
 	} else {
 		my $u = Transports::Model::UserCollection->new();
@@ -92,6 +97,20 @@
 	}
 };
 
+=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";
+};
+
+
 =head1 Login and logout operations
 
 =head2 login