X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/73df5fb5a78b7fc8576c9b7e3da47e10fc551c85..b9dbc9e3d4f8821d9fd324b52dafb81b699a776e:/SL/DB/Default.pm?ds=inline

diff --git a/SL/DB/Default.pm b/SL/DB/Default.pm
index 2da27d5c1..b71b0f474 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 $self = shift->get;
   my @currencies = grep { $_ } split(/:/, $self->curr || '');
   return $currencies[0] || '';
 }
 
-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];