From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 7 Jul 2006 17:03:32 +0000 (+0000)
Subject: added event for dup tracker objects
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=bf12ad2ca154882eae574e2cf20b969fb3aca974;p=Evergreen.git

added event for dup tracker objects


git-svn-id: svn://svn.open-ils.org/ILS/trunk@4930 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm b/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm
index 1b28f0a90a..c1e70dab63 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm
@@ -226,6 +226,18 @@ sub put_into_collections {
 		or return $e->event; $org = $org->[0];
 	return $e->event unless $e->allowed('money.collections_tracker.create', $org->id);
 
+
+	my $existing = $e->search_money_collections_tracker(
+		{
+			location		=> $org->id,
+			usr			=> $user_id,
+			collector	=> $e->requestor->id
+		},
+		{idlist => 1}
+	);
+
+	return OpenILS::Event->new('MONEY_COLLECTIONS_TRACKER_EXISTS') if @$existing;
+
 	my $tracker = Fieldmapper::money::collections_tracker->new;
 
 	$tracker->usr($user_id);