Merge branch 'currency'

[mfinanz.git] / SL / DB / Default.pm

diff --git a/SL/DB/Default.pm b/SL/DB/Default.pm
index b71b0f47421129e09a14cdadc0274fe5dd284e46..4ea7be63f905c25c51ceedc040e077254b5dc66a 100644 (file)
--- a/SL/DB/Default.pm
+++ b/SL/DB/Default.pm
@@ -9,8 +9,8 @@ __PACKAGE__->meta->make_manager_class;
 
 sub get_default_currency {
   my $self = shift->get;
-  my @currencies = grep { $_ } split(/:/, $self->curr || '');
-  return $currencies[0] || '';
+  return $self->currency->name || '' if $self->currency_id;
+  return '';
 }
 
 sub get {