LP#1306666 - Only set "Canceled Transit" status on "In Transit" copies

Signed-off-by: Chris Sharp <csharp@georgialibraries.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Transit.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Transit.pm
index f5bee54..8fe22c8 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Transit.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Transit.pm
@@ -239,10 +239,12 @@ sub __abort_transit {
         return $e->die_event unless $e->allowed('ABORT_REMOTE_TRANSIT', $e->requestor->ws_ou);
     }
 
-    # set the copy status to "Canceled Transit"
-    $copy->status( OILS_COPY_STATUS_CANCELED_TRANSIT );
-    $copy->editor( $e->requestor->id );
-    $copy->edit_date('now');
+    # if the copy status is "In Transit", set the copy status to "Canceled Transit"
+    if( $copy->status == OILS_COPY_STATUS_IN_TRANSIT ) {
+        $copy->status( OILS_COPY_STATUS_CANCELED_TRANSIT );
+        $copy->editor( $e->requestor->id );
+        $copy->edit_date('now');
+    }
 
     my $holdtransit = $e->retrieve_action_hold_transit_copy($transit->id);