From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 14 Jun 2013 15:27:41 +0000 (+0200)
Subject: Merge branch 'clients'
X-Git-Tag: release-3.1.0beta1~331
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/841d44c00aae1166a0721e40dc2f9ffb7b9ac5b5?hp=fb15ef8f81d589fe70e16c2e18cc00c0fcecda4f

Merge branch 'clients'
---

diff --git a/SL/Form.pm b/SL/Form.pm
index 8f9594bdb..3e56b69fc 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1633,7 +1633,6 @@ sub get_all_currencies {
   my $self     = shift;
   my $myconfig = shift || \%::myconfig;
   my $dbh      = $self->get_standard_dbh($myconfig);
-  my @currencies =();
 
   my $query = qq|SELECT name FROM currencies|;
   my @currencies = map { $_->{name} } selectall_hashref_query($self, $dbh, $query);