SL::DB::Order: new_from_multi

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

diff --git a/SL/DB/Default.pm b/SL/DB/Default.pm
index b71b0f47421129e09a14cdadc0274fe5dd284e46..ee9e2c232edbe9213227798e61bf79d48f56b73f 100644 (file)
--- a/SL/DB/Default.pm
+++ b/SL/DB/Default.pm
@@ -4,13 +4,15 @@ 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 = shift->get;
-  my @currencies = grep { $_ } split(/:/, $self->curr || '');
-  return $currencies[0] || '';
+  return $self->currency->name || '' if $self->currency_id;
+  return '';
 }
 
 sub get {