summaryrefslogtreecommitdiff
path: root/FS/FS/part_event/Condition/once.pm
diff options
context:
space:
mode:
Diffstat (limited to 'FS/FS/part_event/Condition/once.pm')
-rw-r--r--FS/FS/part_event/Condition/once.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/FS/FS/part_event/Condition/once.pm b/FS/FS/part_event/Condition/once.pm
index ba3ccbb61..bb0fa22a5 100644
--- a/FS/FS/part_event/Condition/once.pm
+++ b/FS/FS/part_event/Condition/once.pm
@@ -16,7 +16,7 @@ sub remove_warning {
}
sub condition {
- my($self, $object) = @_;
+ my($self, $object, %opt) = @_;
my $obj_pkey = $object->primary_key;
my $tablenum = $object->$obj_pkey();
@@ -24,7 +24,12 @@ sub condition {
my @existing = qsearch( 'cust_event', {
'eventpart' => $self->eventpart,
'tablenum' => $tablenum,
- 'status' => { op=>'NOT IN', value=>"('failed','new')" },
+ #'status' => { op=>'NOT IN', value=>"('failed','new')" },
+ 'status' => { op=>'!=', value=>'failed' },
+ 'addl_sql' => ( $opt{'cust_event'}->eventnum =~ /^(\d+)$/
+ ? " AND eventnum != $1 "
+ : ''
+ ),
} );
! scalar(@existing);