blob: 1a08869dac3345e2c856a8a5765dd6da0a0ca840 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
package FS::part_event::Condition::pkg_recurring;
use strict;
use base qw( FS::part_event::Condition );
sub description { 'Package is recurring'; }
sub eventtable_hashref {
{ 'cust_main' => 0,
'cust_bill' => 0,
'cust_pkg' => 1,
};
}
sub condition {
my( $self, $cust_pkg ) = @_;
$cust_pkg->part_pkg->freq !~ /^0+\D?$/; #just in case, probably just != '0'
}
sub condition_sql {
FS::cust_pkg->recurring_sql()
}
1;
|