- # search for orphaned doi
- $query = sprintf 'SELECT id FROM delivery_order_items WHERE delivery_order_id = ? AND NOT id IN (%s)', join ', ', ("?") x scalar @processed_doi;
- @values = (conv_i($form->{id}), map { conv_i($_) } @processed_doi);
- my @orphaned_ids = map { $_->{id} } selectall_hashref_query($form, $dbh, $query, @values);
- if (scalar @orphaned_ids) {
- # clean up delivery_order_items
- $query = sprintf 'DELETE FROM delivery_order_items WHERE id IN (%s)', join ', ', ("?") x scalar @orphaned_ids;
- do_query($form, $dbh, $query, @orphaned_ids);
- }
- # search for orphaned dois