LP1804716: grab recall-able copies before they are filtered out

Signed-off-by: Jeff Davis <jdavis@sitka.bclibraries.ca>
Signed-off-by: Bill Erickson <berickxx@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/HoldTargeter.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/HoldTargeter.pm
index 392822a..a42638c 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/HoldTargeter.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/HoldTargeter.pm
@@ -733,13 +733,13 @@ sub filter_closed_date_copies {
 sub filter_copies_by_status {
     my $self = shift;
 
+    # Track checked out copies for later recall
+    $self->recall_copies([grep {$_->{status} == 1} @{$self->copies}]);
+
     $self->copies([
         grep {$_->{status} == 0 || $_->{status} == 7} @{$self->copies}
     ]);
 
-    # Track checked out copies for later recall
-    $self->recall_copies([grep {$_->{status} == 1} @{$self->copies}]);
-
     return 1;
 }