my $d_orders = $self->order->linked_records(direction => 'to', to => 'SL::DB::DeliveryOrder');
my @d_orders_delivered = grep { $_->delivered } @$d_orders;
my $d_orders = $self->order->linked_records(direction => 'to', to => 'SL::DB::DeliveryOrder');
my @d_orders_delivered = grep { $_->delivered } @$d_orders;