setting copy back to reshelving if the aborted transit was a hold transit

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Transit.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Transit.pm
index 796ce43..89812c7 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Transit.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Transit.pm
@@ -243,6 +243,11 @@ sub __abort_transit {
 
        my $holdtransit = $e->retrieve_action_hold_transit_copy($transit->id);
 
+       if( $holdtransit ) {
+               $logger->info("setting copy to reshelving on hold transit abort");
+               $copy->status( OILS_COPY_STATUS_RESHELVING );
+       }
+
        return $e->event unless $e->delete_action_transit_copy($transit);
        return $e->event unless $e->update_asset_copy($copy);