POE Paste with lovely alien head...

No paste!

from Someone at 64.57.241.14
diff --git a/Open-ILS/src/perl

format options below
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 2207438..eea551d 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Transit.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Transit.pm
@@ -239,7 +239,8 @@ sub __abort_transit {
         return $e->die_event unless $e->allowed('ABORT_REMOTE_TRANSIT', $e->requestor->ws_ou);
     }
 
-    # recover the copy status
+    # recover the copy status IFF it is really in transit
+    if ($copy->status == OILS_COPY_STATUS_IN_TRANSIT) {
         $copy->status( $transit->copy_status );
         $copy->editor( $e->requestor->id );
         $copy->edit_date('now');
@@ -250,6 +251,7 @@ sub __abort_transit {
             $logger->info("setting copy to reshelving on hold transit abort");
             $copy->status( OILS_COPY_STATUS_RESHELVING );
         }
+    }
 
     return $e->die_event unless $e->delete_action_transit_copy($transit);
     return $e->die_event unless $e->update_asset_copy($copy);





perl stuff: (might be helpful for others but not perfect)



Valid HTML 4.01!

Pastebot is powered by POE.