Optimize "Customer has a referring customer" condition, RT#74452

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

diff --git a/FS/FS/part_event/Condition/has_cust_tag.pm b/FS/FS/part_event/Condition/has_cust_tag.pm
index cde9338..0ca5ef5 100644 (file)
--- a/FS/FS/part_event/Condition/has_cust_tag.pm
+++ b/FS/FS/part_event/Condition/has_cust_tag.pm
@@ -1,22 +1,23 @@
 package FS::part_event::Condition::has_cust_tag;
+use base qw( FS::part_event::Condition );
 
 use strict;
-
-use base qw( FS::part_event::Condition );
-use FS::Record qw( qsearch );
+#use FS::Record qw( qsearch );
 
 sub description {
   'Customer has tag',
 }
 
 sub eventtable_hashref {
-    { 'cust_main' => 1,
-      'cust_bill' => 1,
-      'cust_pkg'  => 1,
+    { 'cust_main'      => 1,
+      'cust_bill'      => 1,
+      'cust_pkg'       => 1,
+      'cust_pay'       => 1,
+      'cust_pay_batch' => 1,
+      'cust_statement' => 1,
     };
 }
 
-#something like this
 sub option_fields {
   (
     'tagnum'  => { 'label'    => 'Customer tag',