1 package FS::part_event::Condition::pkg_balance;
6 use base qw( FS::part_event::Condition );
8 sub description { 'Package balance'; }
13 'balance' => { 'label' => 'Balance over',
15 'value' => '0.00', #default
20 sub eventtable_hashref {
25 my($self, $cust_pkg) = @_;
27 my $cust_main = $self->cust_main($cust_pkg);
29 my $over = $self->option('balance');
30 $over = 0 unless length($over);
32 $cust_main->balance_pkgnum($cust_pkg->pkgnum) > $over;