From a54edeb8a1546f7c1f36cd05c583fcff5220ad01 Mon Sep 17 00:00:00 2001 From: Steven Callender Date: Mon, 15 Oct 2012 10:48:28 -0400 Subject: [PATCH] Added a check for the money.collections_tracker table when using the open-ils.collections.users_of_interest.warning_penalty.retrieve API call. Users that are already entered into the money.collections_tracker table should not be recalled from the open-ils.collections.users_of_interest.warning_penalty.retrieve API. This change will check for the existance of the user in the money.colletions_tracker table. Signed-off-by: Steven Callender Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Application/Collections.pm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Collections.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Collections.pm index f1d6e36fda..8d61327174 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Collections.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Collections.pm @@ -221,6 +221,12 @@ sub users_of_interest_warning_penalty { aus => { type => 'left', filter => {name => 'circ.collections.exempt'} + }, + mct => { + type => 'left', + filter => { + location => [ map {$_->{id}} @$org_ids ] + } } } } @@ -237,7 +243,10 @@ sub users_of_interest_warning_penalty { }, # We are only interested in users that do not have the # circ.collections.exempt setting applied - '+aus' => {value => undef} + '+aus' => {value => undef}, + # and we're only interested in users that are not in the + # collections tracker table + '+mct' => {id => undef} } }; -- 2.11.0