Eine ausgewählte Währung nicht mit der Standardwährung überschreiben.
authorMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 5 Mar 2008 13:35:00 +0000 (13:35 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 5 Mar 2008 13:35:00 +0000 (13:35 +0000)
SL/OE.pm

index 2e0ac42..72c11ed 100644 (file)
--- 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.