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 1b28f0a..c1e70da 100644 (file)
--- 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);