From ec2e4394a02c907ca241fa6d87ee43f9a56e6308 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 22 May 2009 11:12:44 +0000
Subject: [PATCH] =?utf8?q?Preise=20in=20previousform=20m=C3=BCssen=20auch?=
 =?utf8?q?=20korrekt=20formatiert=20werden.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Fix für Bug 987.
---
 bin/mozilla/ic.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl
index 325d01ec4..710d1ec0c 100644
--- a/bin/mozilla/ic.pl
+++ b/bin/mozilla/ic.pl
@@ -33,6 +33,7 @@
 
 use POSIX qw(strftime);
 use List::Util qw(max);
+use List::MoreUtils qw(any);
 
 use SL::AM;
 use SL::IC;
@@ -1577,7 +1578,11 @@ sub assembly_row {
 
       # escape ampersands
       $form->{$key} =~ s/&/%26/g;
-      $previousform .= qq|$key=$form->{$key}&|;
+      if (any { $key eq $_ } qw(sellprice listprice lastcost)) {
+        $previousform .= sprintf qq|%s=%s&|, $key, $form->format_amount(\%myconfig, $form->{$key});
+      } else {
+        $previousform .= qq|$key=$form->{$key}&|;
+      }
     }
     chop $previousform;
     $previousform = $form->escape($form->escape($previousform, 1));
-- 
2.20.1