Skip forced targeting of frozen holds

Otherwise a frozen hold can be manually retargeted by staff and captured.

Signed-off-by: Thomas Berezansky <tsbere@mvlc.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
index 6a2b6d6..02ce6b1 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
@@ -1053,7 +1053,7 @@ sub new_hold_copy_targeter {
        try {
                if ($one_hold) {
                        $self->method_lookup('open-ils.storage.transaction.begin')->run( $client );
-                       $holds = [ action::hold_request->search_where( { id => $one_hold, fulfillment_time => undef, cancel_time => undef } ) ];
+                       $holds = [ action::hold_request->search_where( { id => $one_hold, fulfillment_time => undef, cancel_time => undef, frozen => 'f' } ) ];
                } elsif ( $check_expire ) {
 
                        # what's the retarget time threashold?