Revision 996eeac7
Von Jan Büren vor mehr als 3 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
| 663 | 663 |
die "No valid delivery order found" unless ref $do eq 'SL::DB::DeliveryOrder'; |
| 664 | 664 |
|
| 665 | 665 |
my $dt = DateTime->today->subtract(days => $::instance_conf->get_undo_transfer_interval); |
| 666 |
croak "Wrong call. Please check undoing interval" unless DateTime->compare($do->itime, $dt) == 1;
|
|
| 666 |
croak "Wrong call. Please check undoing interval" unless $do->itime > $dt;
|
|
| 667 | 667 |
|
| 668 | 668 |
foreach my $doi (@{ $do->orderitems }) {
|
| 669 | 669 |
foreach my $dois (@{ $doi->delivery_order_stock_entries}) {
|
Auch abrufbar als: Unified diff
Ergänzung zu 3e79972f6ef Weniger Code und klarer