projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 74452 Optimize referral billing event condition
[freeside.git]
/
FS
/
FS
/
part_event
/
Condition.pm
diff --git
a/FS/FS/part_event/Condition.pm
b/FS/FS/part_event/Condition.pm
index
fc69f1d
..
d1d5196
100644
(file)
--- a/
FS/FS/part_event/Condition.pm
+++ b/
FS/FS/part_event/Condition.pm
@@
-52,6
+52,7
@@
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,
'svc_acct' => 1,
'cust_pay_batch' => 1,
'cust_statement' => 1,
'svc_acct' => 1,
@@
-311,7
+312,7
@@
sub option_age_from {
} elsif ( $age =~ /^(\d+)d$/i ) {
$mday -= $1;
} elsif ( $age =~ /^(\d+)h$/i ) {
} elsif ( $age =~ /^(\d+)d$/i ) {
$mday -= $1;
} elsif ( $age =~ /^(\d+)h$/i ) {
- $hour -= $
hour
;
+ $hour -= $
1
;
} else {
die "unparsable age: $age";
}
} else {
die "unparsable age: $age";
}
@@
-524,7
+525,7
@@
comparison to other integers is type-correct.
sub condition_sql_option_integer {
my ($class, $option, $driver_name) = @_;
sub condition_sql_option_integer {
my ($class, $option, $driver_name) = @_;
- my $integer = (
$driver_name
=~ /^mysql/) ? 'UNSIGNED INTEGER' : 'INTEGER';
+ my $integer = (
driver_name()
=~ /^mysql/) ? 'UNSIGNED INTEGER' : 'INTEGER';
'CAST(
COALESCE('. $class->condition_sql_option($option).
'CAST(
COALESCE('. $class->condition_sql_option($option).