Bug xxx

listprice

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index 9c6cd67a5fc7d4531a1a73249f9478736bb1ef76..5aa916eeec0818c26e1c6ae39e01386b94b9b4fe 100644 (file)
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -576,7 +576,7 @@ sub update {
 
         $form->{creditremaining} -= $amount;
 
 
         $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"});
 
 
         $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);
 
 #  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;
 
   my $currency = $form->{currency};
   &invoice_links;