Kreditlimit wurde doppelt geparsed, wenn Kundenauswahl nicht eindeutig

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index 9ac6d0e31576ceb00ffe15f64061f0153bdd1568..3fc4b2caaa5f65783d18d595ec53fa25d48266fc 100644 (file)
--- 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 32fe7a11fb6d7402a5dd1dd248f435f13dab1b72..e359b55067a6cdabfb72db79b445ad788016e78f 100644 (file)
--- 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};