sub option_fields {
(
'has_service' => { 'label' => 'Has service',
'type' => 'select-part_svc',
sub option_fields {
(
'has_service' => { 'label' => 'Has service',
'type' => 'select-part_svc',
#my($self, $cust_bill, %opt) = @_;
my($self, $cust_bill) = @_;
#my($self, $cust_bill, %opt) = @_;
my($self, $cust_bill) = @_;
- my $servicenum = $self->option('has_service');
- grep { $servicenum == $_->svcnum }
- map { $_->cust_pkg->cust_svc }
- $cust_bill->cust_bill_pkg ;
+ my $servicenum = $self->option('has_service') || {};
+
+ grep $servicenum->{ $_->svcpart },
+ map $_->cust_svc,
+ $cust_bill->cust_pkg;
- my( $class, $table ) = @_;
-
- my $servicenum = $class->condition_sql_option('has_service');
+ my( $class, $table, %opt ) = @_;
+
+ my $servicenums =
+ $class->condition_sql_option_option_integer('has_service');
+
my $sql = qq| 0 < ( SELECT COUNT(cs.svcpart)
FROM cust_bill_pkg cbp, cust_svc cs
WHERE cbp.invnum = cust_bill.invnum
AND cs.pkgnum = cbp.pkgnum
my $sql = qq| 0 < ( SELECT COUNT(cs.svcpart)
FROM cust_bill_pkg cbp, cust_svc cs
WHERE cbp.invnum = cust_bill.invnum
AND cs.pkgnum = cbp.pkgnum