83 |
$s->order_by( { column => 'source' } ); |
$s->order_by( { column => 'source' } ); |
84 |
set sources => $s; |
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(); |
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 |