From: Steven Callender Date: Mon, 15 Oct 2012 14:48:28 +0000 (-0400) Subject: Added a check for the money.collections_tracker table when using the open-ils.collect... X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=9e0b525c52679cd269f53d94d8ef471cc2a80389;p=evergreen%2Ftadl.git 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 --- diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Collections.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Collections.pm index 69fc4728d9..44981dbfd2 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Collections.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Collections.pm @@ -224,6 +224,12 @@ sub users_of_interest_warning_penalty { aus => { type => 'left', filter => {name => 'circ.collections.exempt'} + }, + mct => { + type => 'left', + filter => { + location => [ map {$_->{id}} @$org_ids ] + } } } } @@ -240,7 +246,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} } };