From 996eeac7efd989c9750a88692d6c75d99a34cf2f Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Fri, 4 Jun 2021 11:46:35 +0200 Subject: [PATCH] =?utf8?q?Erg=C3=A4nzung=20zu=20=203e79972f6ef=20Weniger?= =?utf8?q?=20Code=20und=20klarer?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/DO.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SL/DO.pm b/SL/DO.pm index 3b0b41be2..53730d771 100644 --- a/SL/DO.pm +++ b/SL/DO.pm @@ -663,7 +663,7 @@ sub delete_transfers { die "No valid delivery order found" unless ref $do eq 'SL::DB::DeliveryOrder'; my $dt = DateTime->today->subtract(days => $::instance_conf->get_undo_transfer_interval); - croak "Wrong call. Please check undoing interval" unless DateTime->compare($do->itime, $dt) == 1; + croak "Wrong call. Please check undoing interval" unless $do->itime > $dt; foreach my $doi (@{ $do->orderitems }) { foreach my $dois (@{ $doi->delivery_order_stock_entries}) { -- 2.20.1