From: Sven Schöling <s.schoeling@linet-services.de>
Date: Fri, 22 May 2009 11:12:44 +0000 (+0000)
Subject: Preise in previousform müssen auch korrekt formatiert werden.
X-Git-Tag: release-2.6.0rc1~8
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=ec2e4394a02c907ca241fa6d87ee43f9a56e6308;p=kivitendo-erp.git

Preise in previousform müssen auch korrekt formatiert werden.

Fix für Bug 987.
---

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));