Admin: Teile von admin.pl in neuen Controller Admin verschoben; Mandanten anzeigen

[kivitendo-erp.git] / SL / DB / AuthUser.pm

diff --git a/SL/DB/AuthUser.pm b/SL/DB/AuthUser.pm
index c1b46b4..41644eb 100644 (file)
--- a/SL/DB/AuthUser.pm
+++ b/SL/DB/AuthUser.pm
@@ -8,11 +8,9 @@ use strict;
 use List::Util qw(first);
 
 use SL::DB::MetaSetup::AuthUser;
+use SL::DB::Manager::AuthUser;
 use SL::DB::AuthUserGroup;
 
-# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
-__PACKAGE__->meta->make_manager_class;
-
 __PACKAGE__->meta->schema('auth');
 
 __PACKAGE__->meta->add_relationship(
@@ -44,4 +42,15 @@ sub get_config_value {
   return $cfg ? $cfg->cfg_value : undef;
 }
 
+sub config_values {
+  my $self = shift;
+
+  if (0 != scalar(@_)) {
+    my %settings = (ref($_[0]) || '') eq 'HASH' ? %{ $_[0] } : @_;
+    $self->configs([ map { SL::DB::AuthUserConfig->new(cfg_key => $_, cfg_value => $settings{$_}) } keys %settings ]);
+  }
+
+  return { map { ($_->cfg_key => $_->cfg_value) } @{ $self->configs } };
+}
+
 1;