fix data type issue, #11834

2 files changed, 13 insertions, 1 deletions

diff --git a/FS/FS/part_event/Condition.pm b/FS/FS/part_event/Condition.pm
index 90b83853e..9155a7d42 100644
--- a/FS/FS/part_event/Condition.pm
+++ b/FS/FS/part_event/Condition.pm
@@ -457,6 +457,18 @@ sub age2seconds_sql {
 
 }
 
+=item condition_sql_option_integer
+
+As I<condition_sql_option>, but cast the option value to an integer so that
+comparison to other integers is type-correct.
+
+=cut
+
+sub condition_sql_option_integer {
+  my ($class, $option) = @_;
+  'CAST ('.$class->condition_sql_option($option).' AS INTEGER)';
+}
+
 =head1 NEW CONDITION CLASSES
 
 A module should be added in FS/FS/part_event/Condition/ which implements the
diff --git a/FS/FS/part_event/Condition/times.pm b/FS/FS/part_event/Condition/times.pm
index 428a2cb09..91212e778 100644
--- a/FS/FS/part_event/Condition/times.pm
+++ b/FS/FS/part_event/Condition/times.pm
@@ -49,7 +49,7 @@ sub condition_sql {
                         AND status != 'failed'
                   )";
 
-  "$existing <= ". $class->condition_sql_option('run_times');
+  "$existing <= ". $class->condition_sql_option_integer('run_times');
 
 }