From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 30 Jul 2009 13:11:07 +0000 (+0000)
Subject: don't consider invalide addrs with negative IDs, since those are replaced addrs
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=4fbc5b7727d1ccfdace205a1e4ab213998f730ca;p=evergreen%2Ftadl.git

don't consider invalide addrs with negative IDs, since those are replaced addrs

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index 7d2fb15975..d6b51961b6 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -317,7 +317,8 @@ sub apply_invalid_addr_penalty {
     my $enforce = $U->ou_ancestor_setting_value(
         $patron->home_ou, 'circ.patron_invalid_address_apply_penalty') || 0;
 
-    my $addrs = $e->search_actor_user_address({usr => $patron->id, valid => 'f'}, {idlist => 1});
+    my $addrs = $e->search_actor_user_address(
+        {usr => $patron->id, valid => 'f', id => {'>' => 0}}, {idlist => 1});
     my $addr_count = scalar(@$addrs);
 
     if($addr_count == 0 and $addr_penalty) {