From 5aaac4ceeef32b7168f50b80d549aa1b2611460d Mon Sep 17 00:00:00 2001 From: "Martin Helmling martin.helmling@octosoft.eu" Date: Wed, 8 Jul 2020 07:49:17 +0200 Subject: [PATCH] =?utf8?q?Zahlungsbedingungen:=20"calc=5Fdate"=20=C3=BCber?= =?utf8?q?schreibt=20Referenzdatum?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Die Methode "calc_date" erzeugt das neue Datum ohne ein neues Objekt zu erzeugen. Deshalb wird ggf der Parameter "reference_date" überschrieben. Nun wird ein neues Datumsobjekt per "clone" erzeugt. gefunden bei egw 13209 (cherry picked from commit ac77e995e74bef6f408045eda95ebc775430b17d) (cherry-pick vonm odyn) --- SL/DB/PaymentTerm.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SL/DB/PaymentTerm.pm b/SL/DB/PaymentTerm.pm index db443e947..2f62bd9ac 100644 --- a/SL/DB/PaymentTerm.pm +++ b/SL/DB/PaymentTerm.pm @@ -35,7 +35,7 @@ sub calc_date { } my $terms = ($params{terms} // 'net') eq 'discount' ? 'terms_skonto' : 'terms_netto'; - my $date = $reference_date->add(days => $self->$terms); + my $date = $reference_date->clone->add(days => $self->$terms); my $dow = $date->day_of_week; $date = $date->add(days => 8 - $dow) if $dow > 5; -- 2.20.1