X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/cf085911ff3fd52515487d5adb55b04082593539..2b8804456d1d3ee249a70d98679ea3a934b25a39:/SL/DB/Default.pm 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];