From: G. Richardson <information@lx-office-hosting.de>
Date: Fri, 24 Feb 2012 13:58:36 +0000 (+0100)
Subject: Bug xxx
X-Git-Tag: release-3.0.0beta1~349
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/58eae0927419df7bc4f5c3adffc8ecd0c0d4dcfd?ds=inline;hp=-c

Bug xxx

listprice
---

58eae0927419df7bc4f5c3adffc8ecd0c0d4dcfd
diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index 9c6cd67a5..5aa916eee 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -576,7 +576,7 @@ sub update {
 
         $form->{creditremaining} -= $amount;
 
-        map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces) } qw(sellprice listprice lastcost);
+        map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces) } qw(sellprice lastcost);
 
         $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
 
@@ -938,6 +938,12 @@ sub credit_note {
 #  map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
 #    qw(creditlimit creditremaining);
 
+  for my $i (1 .. $form->{rowcount}) {
+    for (qw(listprice)) {
+      $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"};
+    }
+  }
+
   my $currency = $form->{currency};
   &invoice_links;