sub _get_currencies an currencies angepasst, da diese mit : getrennt in der Tabelle...

diff --git a/SL/Form.pm b/SL/Form.pm
index 65fdace..caace43 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1596,8 +1596,8 @@ $main::lxdebug->enter_sub();
   $key = "all_currencies" unless ($key);
 
   my $query = qq|SELECT curr AS currency FROM defaults|;
-
-  $self->{$key} = selectall_hashref_query($self, $dbh, $query);
+ 
+  $self->{$key} = [split(/\:/ , selectfirst_hashref_query($self, $dbh, $query)->{currency})];
 
   $main::lxdebug->leave_sub();
 }