X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FDefault.pm;h=ee9e2c232edbe9213227798e61bf79d48f56b73f;hb=24ab7ec0bfb052edce7a3c7a6e37c151f9cd6a04;hp=2da27d5c1a44c1933755e2790455a77f3370dbaa;hpb=cf085911ff3fd52515487d5adb55b04082593539;p=kivitendo-erp.git diff --git a/SL/DB/Default.pm b/SL/DB/Default.pm index 2da27d5c1..ee9e2c232 100644 --- a/SL/DB/Default.pm +++ b/SL/DB/Default.pm @@ -4,16 +4,18 @@ use strict; use SL::DB::MetaSetup::Default; +__PACKAGE__->meta->initialize; + # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all. __PACKAGE__->meta->make_manager_class; sub get_default_currency { - my $self = _selfify(@_); - my @currencies = grep { $_ } split(/:/, $self->curr || ''); - return $currencies[0] || ''; + my $self = shift->get; + return $self->currency->name || '' if $self->currency_id; + return ''; } -sub _selfify { +sub get { my ($class_or_self) = @_; return $class_or_self if ref($class_or_self); return SL::DB::Manager::Default->get_all(limit => 1)->[0];