X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/cf085911ff3fd52515487d5adb55b04082593539..a23454bb1b039a31b7f77710ff663fa9152d530c:/SL/DB/Default.pm

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];