Correct location test for at_circ and at_owning

Signed-off-by: Mike Rylander <mrylander@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
index e3e7fa2..75fcbd8 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
@@ -692,9 +692,9 @@ sub filter_user_copy_alerts {
                 my $orgs = $U->get_org_descendants($copy_circ_lib);
 
                 if ($U->is_true($a->alert_type->invert_location)) {
-                    next if (grep {$_ == $copy_circ_lib} @$orgs);
+                    next if (grep {$_ == $self->circ_lib} @$orgs);
                 } else {
-                    next unless (grep {$_ == $copy_circ_lib} @$orgs);
+                    next unless (grep {$_ == $self->circ_lib} @$orgs);
                 }
             }
 
@@ -705,9 +705,9 @@ sub filter_user_copy_alerts {
                 my $orgs = $U->get_org_descendants($copy_owning_lib);
 
                 if ($U->is_true($a->alert_type->invert_location)) {
-                    next if (grep {$_ == $copy_owning_lib} @$orgs);
+                    next if (grep {$_ == $self->circ_lib} @$orgs);
                 } else {
-                    next unless (grep {$_ == $copy_owning_lib} @$orgs);
+                    next unless (grep {$_ == $self->circ_lib} @$orgs);
                 }
             }