[open-ils-commits] r13782 - trunk/Open-ILS/src/perlmods/OpenILS/Application (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-07-30 09:11:07 -0400 (Thu, 30 Jul 2009)
New Revision: 13782

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
don't consider invalide addrs with negative IDs, since those are replaced addrs

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2009-07-30 12:55:29 UTC (rev 13781)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2009-07-30 13:11:07 UTC (rev 13782)
@@ -317,7 +317,8 @@
     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) {