SL::DBUpgrade2::Base neue Funktion db_errstr() für korrekt encodierte Datenbankfehler...

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

diff --git a/SL/DB/Default.pm b/SL/DB/Default.pm
index 2da27d5c1a44c1933755e2790455a77f3370dbaa..4ea7be63f905c25c51ceedc040e077254b5dc66a 100644 (file)
--- 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];