removing open transits for a copy when it is deleted

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5595 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
index c1cf729..e73ae33 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -1091,6 +1091,15 @@ sub delete_copy {
                $copy, {checkperm=>1, permorg=>$vol->owning_lib})
                or return $editor->event;
 
+       # Delete any open transits for this copy
+       my $transits = $editor->search_action_transit_copy(
+               { target_copy=>$copy->id, dest_recv_time => undef } );
+
+       for my $t (@$transits) {
+               $editor->delete_action_transit_copy($t)
+                       or return $editor->event;
+       }
+
        return remove_empty_objects($editor, $override, $vol);
 }