'extra_sql' => q(AND freq NOT LIKE '0%' AND freq NOT LIKE '%d' AND freq NOT LIKE '%h' AND freq NOT LIKE '%w'),
'multiple' => 1,
},
- 'if_pkg_class' => { label => 'Only package class',
- type => 'select-pkg_class',
- multiple => 1,
- },
+ 'if_pkg_class' => { 'label' => 'Only package class',
+ 'type' => 'select-pkg_class',
+ 'multiple' => 1,
+ },
'discountnum' => { 'label' => 'Discount',
'type' => 'select-table', #we don't handle the select-discount create a discount case
'table' => 'discount',
my $cust_main = $self->cust_main($object);
my %if_pkgpart = map { $_=>1 } split(/\s*,\s*/, $self->option('if_pkgpart') );
- my $if_pkg_class = $self->option('if_pkg_class') || {};
+ my %if_pkg_class = map { $_=>1 } split(/\s*,\s*/, $self->option('if_pkg_class') );
my $allpkgs = (keys %if_pkgpart) ? 0 : 1;
return 'Package not selected'
if ! $allpkgs && ! $if_pkgpart{ $object->pkgpart };
return 'Package not of selected class'
- if keys %$if_pkg_class
- && ! $if_pkg_class->{ $object->part_pkg->classnum };
+ if keys %if_pkg_class
+ && ! $if_pkg_class{ $object->part_pkg->classnum };
return 'Package frequency not monthly or a multiple'
if $object->part_pkg->freq !~ /^\d+$/;
@cust_pkg = grep {
( $allpkgs || $if_pkgpart{ $_->pkgpart } )
- && ( ! keys %$if_pkg_class || $if_pkg_class->{ $_->part_pkg->classnum } )
+ && ( ! keys %if_pkg_class || $if_pkg_class{ $_->part_pkg->classnum } )
&& $_->part_pkg->freq
#remove after fixing discount bug with non-monthly pkgs
&& ( $_->part_pkg->freq =~ /^\d+$/)