X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d0c938cfb5fbb8c1c03b94d395d6c7839a1c597e..ba6a136694f2e54e7bf21b1ecfabfcb872784ef4:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 0080dccd8..f7097bda3 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1631,14 +1631,8 @@ sub get_all_currencies {
   my $dbh      = $self->get_standard_dbh($myconfig);
   my @currencies =();
 
-  my $query = qq|SELECT name AS curr FROM currencies|;
-
-  my $sth = prepare_execute_query($self, $dbh, $query);
-
-  while (my $ref = $sth->fetchrow_hashref()) {
-    push(@currencies, $ref->{curr});
-  }
-  $sth->finish;
+  my $query = qq|SELECT name FROM currencies|;
+  my @currencies = map { $_->{name} } selectall_hashref_query($self, $dbh, $query);
 
   $main::lxdebug->leave_sub();