From 4fbc5b7727d1ccfdace205a1e4ab213998f730ca Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 30 Jul 2009 13:11:07 +0000 Subject: [PATCH] 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 --- Open-ILS/src/perlmods/OpenILS/Application/Actor.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) { -- 2.43.2