From ac517355778ec8b682f7cdd1ef203be99e545a53 Mon Sep 17 00:00:00 2001 From: Philip Reetz Date: Thu, 18 Oct 2007 10:53:40 +0000 Subject: [PATCH] Kreditlimit wurde doppelt geparsed, wenn Kundenauswahl nicht eindeutig --- bin/mozilla/is.pl | 4 +++- bin/mozilla/oe.pl | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) 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}; -- 2.20.1