X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FAuthUser.pm;h=41644eb1f73a85483fe2d3eec100dd80d0cff892;hb=d8ac08282dad52789b8bea785e8cddae44085483;hp=c1b46b4ef79839844e5ff2793795fe4b858464c6;hpb=738fb45b29f22097f26c244598d6713ecd929a5e;p=kivitendo-erp.git diff --git a/SL/DB/AuthUser.pm b/SL/DB/AuthUser.pm index c1b46b4ef..41644eb1f 100644 --- 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;