From: Philip Reetz <p.reetz@linet-services.de>
Date: Thu, 18 Oct 2007 10:53:40 +0000 (+0000)
Subject: Kreditlimit wurde doppelt geparsed, wenn Kundenauswahl nicht eindeutig
X-Git-Tag: release-2.6.0beta1~466
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=ac517355778ec8b682f7cdd1ef203be99e545a53;p=kivitendo-erp.git

Kreditlimit wurde doppelt geparsed, wenn Kundenauswahl nicht eindeutig
---

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index 9ac6d0e31..3fc4b2caa 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -1170,7 +1170,9 @@ sub mark_as_paid {
 sub update {
   $lxdebug->enter_sub();
 
-  map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining);
+  my ($recursive_call) = shift;
+
+  map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining) unless $recursive_call;
 
   $form->{print_and_post} = 0         if $form->{second_run};
   $taxincluded            = "checked" if $form->{taxincluded};
diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index 32fe7a11f..e359b5506 100644
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -1101,10 +1101,12 @@ sub form_footer {
 
 sub update {
   $lxdebug->enter_sub();
+  
+  my ($recursive_call) = shift;
 
   set_headings($form->{"id"} ? "edit" : "add");
 
-  map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining);
+  map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining) unless $recursive_call;
   $form->{update} = 1;
       
   $payment_id = $form->{payment_id} if $form->{payment_id};