referral credits overhaul, use billing events, agents can self-configure, limit to...

[freeside.git] / FS / FS / part_event / Condition / once.pm

diff --git a/FS/FS/part_event/Condition/once.pm b/FS/FS/part_event/Condition/once.pm
index bb0fa22..5a9161f 100644 (file)
--- a/FS/FS/part_event/Condition/once.pm
+++ b/FS/FS/part_event/Condition/once.pm
@@ -20,13 +20,15 @@ sub condition {
 
   my $obj_pkey = $object->primary_key;
   my $tablenum = $object->$obj_pkey();
-  
-  my @existing = qsearch( 'cust_event', {
-    'eventpart' => $self->eventpart,
-    'tablenum'  => $tablenum,
-    #'status'    => { op=>'NOT IN', value=>"('failed','new')" },
-    'status'    => { op=>'!=', value=>'failed' },
-    'addl_sql'  => ( $opt{'cust_event'}->eventnum =~ /^(\d+)$/
+ 
+  my @existing = qsearch( {
+    'table'     => 'cust_event',
+    'hashref'   => {
+                     'eventpart' => $self->eventpart,
+                     'tablenum'  => $tablenum,
+                     'status'    => { op=>'!=', value=>'failed' },
+                   },
+    'extra_sql' => ( $opt{'cust_event'}->eventnum =~ /^(\d+)$/
                        ? " AND eventnum != $1 "
                        : ''
                    ),