From ee9fb352c2d675dfe828e5f672d857b827e003ed Mon Sep 17 00:00:00 2001
From: Thomas Kasulke <t.kasulke@linet-services.de>
Date: Fri, 27 Apr 2007 11:53:15 +0000
Subject: [PATCH] sub _get_currencies an currencies angepasst, da diese mit :
 getrennt in der Tabelle stehen

---
 SL/Form.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index 65fdaced1..caace43f6 100644
--- 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();
 }
-- 
2.39.5