Merge branch 'clients'

diff --git a/SL/Form.pm b/SL/Form.pm
index 8f9594bdb992fade1527251b3ba80c6e46fd8426..3e56b69fc8a6fc3d01b49fa6b43990d384de4d6e 100644 (file)
--- 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);