From e0b0d41be85ac63577001f12a0e49a5a249f00cb Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 8 Aug 2006 21:31:55 +0000 Subject: [PATCH] logic bug - see diff git-svn-id: svn://svn.open-ils.org/ILS/trunk@5384 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Transit.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Transit.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Transit.pm index 5def0ff72a..9b3edb1bcc 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Transit.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Transit.pm @@ -199,13 +199,14 @@ sub abort_transit { $transit = $e->retrieve_action_transit_copy($transitid) or return $e->event; - } else { + } elsif( $copy ) { + $transit = $e->search_action_transit_copy( - { target_copy => $copyid, dest_recv_time => undef })->[0]; + { target_copy => $copy->id, dest_recv_time => undef })->[0]; return $e->event unless $transit; } - if(!$copy) { + if($transit and !$copy) { $copy = $e->retrieve_asset_copy($transit->target_copy) or return $e->event; } -- 2.11.0