From be7bfdb98147bf98249cbc595e5b54c974ad0a89 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 5 Mar 2008 13:35:00 +0000
Subject: [PATCH] =?utf8?q?Eine=20ausgew=C3=A4hlte=20W=C3=A4hrung=20nicht?=
 =?utf8?q?=20mit=20der=20Standardw=C3=A4hrung=20=C3=BCberschreiben.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/OE.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/OE.pm b/SL/OE.pm
index 2e0ac4212..72c11ed32 100644
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -620,7 +620,7 @@ sub retrieve {
   my $ref = selectfirst_hashref_query($form, $dbh, $query);
   map { $form->{$_} = $ref->{$_} } keys %$ref;
 
-  ($form->{currency}) = split(/:/, $form->{currencies});
+  ($form->{currency}) = split(/:/, $form->{currencies}) unless ($form->{currency});
 
   # set reqdate if this is an invoice->order conversion. If someone knows a better check to ensure
   # we come from invoices, feel free.
-- 
2.20.1