X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/927ec7273b39dffbd1cb91062fed46c60d9be47f..2436f6e94ca447e5c6f5c3002e5cd6767d025173:/SL/DO.pm

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}) {