1 package FS::part_event::Condition::cust_bill_owed_under;
6 use base qw( FS::part_event::Condition );
9 'Amount owed on specific invoice (under)';
12 sub eventtable_hashref {
21 'owed' => { 'label' => 'Amount owed under (or equal to)',
23 'value' => '0.00', #default
29 #my($self, $cust_bill, %opt) = @_;
30 my($self, $cust_bill) = @_;
32 my $under = $self->option('owed');
33 $under = 0 unless length($under);
35 $cust_bill->owed <= $under;
40 my( $class, $table ) = @_;
42 my $under = $class->condition_sql_option('owed');
44 my $owed_sql = FS::cust_bill->owed_sql;
46 "$owed_sql <= $under";