X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FDB%2FDefault.pm;h=4ea7be63f905c25c51ceedc040e077254b5dc66a;hb=57528e5b09f2fea9708d06ec99c3fb0200275534;hp=2da27d5c1a44c1933755e2790455a77f3370dbaa;hpb=cf085911ff3fd52515487d5adb55b04082593539;p=kivitendo-erp.git

diff --git a/SL/DB/Default.pm b/SL/DB/Default.pm
index 2da27d5c1..4ea7be63f 100644
--- a/SL/DB/Default.pm
+++ b/SL/DB/Default.pm
@@ -8,12 +8,12 @@ use SL::DB::MetaSetup::Default;
 __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];