Bei der Umwandlung in Aufträge die ausgewählte Währung beibehalten.
authorMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 5 Mar 2008 13:58:38 +0000 (13:58 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 5 Mar 2008 13:58:38 +0000 (13:58 +0000)
bin/mozilla/oe.pl

index c388cdd..9c3b2fd 100644 (file)
@@ -1842,8 +1842,12 @@ sub poso {
     map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if ($form->{"${_}_${i}"}) } qw(ship qty sellprice listprice basefactor);
   }
 
+  my %saved_vars = map { $_ => $form->{$_} } grep { $form->{$_} } qw(currency);
+
   &order_links;
 
+  map { $form->{$_} = $saved_vars{$_} } keys %saved_vars;
+
   &prepare_order;
 
   # format amounts