Revision c6dd542b
Von Moritz Bunkus vor fast 9 Jahren hinzugefügt
| SL/Controller/Admin.pm | ||
|---|---|---|
| 6 | 6 |
|
| 7 | 7 |
use IO::Dir; |
| 8 | 8 |
use List::Util qw(first); |
| 9 |
use List::UtilsBy qw(sort_by); |
|
| 9 | 10 |
|
| 10 | 11 |
use SL::Common (); |
| 11 | 12 |
use SL::DB::AuthUser; |
| ... | ... | |
| 672 | 673 |
return undef; |
| 673 | 674 |
} |
| 674 | 675 |
|
| 676 |
sub is_user_used_for_task_server {
|
|
| 677 |
my ($self, $user) = @_; |
|
| 678 |
|
|
| 679 |
return undef if !$user; |
|
| 680 |
return join ', ', sort_by { lc } map { $_->name } @{ SL::DB::Manager::AuthClient->get_all(where => [ task_server_user_id => $user->id ]) };
|
|
| 681 |
} |
|
| 682 |
|
|
| 683 |
|
|
| 675 | 684 |
1; |
Auch abrufbar als: Unified diff
Task-Server: Mandantenfähigkeit