TPac: avoid showing replaced addresses

Replaced (negative-id) addresses should never be visible to the patron.
Remove them from the collected list of addrs.

Signed-off-by: Bill Erickson <berick@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
index 489594c..fddb0ed 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
@@ -34,6 +34,10 @@ sub prepare_extended_user_info {
 
     $e->rollback if $local_xact;
 
+    # discard replaced (negative-id) addresses.
+    $self->ctx->{user}->addresses([
+        grep {$_->id > 0} @{$self->ctx->{user}->addresses} ]);
+
     return Apache2::Const::HTTP_INTERNAL_SERVER_ERROR 
         unless $self->ctx->{user};