? @{ $param->{'cust_classnum'} }
: ( $param->{'cust_classnum'} );
- @classnum = grep /^(\d*)$/, @classnum;
+ @classnum = grep /^(\d+)$/, @classnum;
if ( @classnum ) {
push @search, 'COALESCE(cust_main.classnum, 0) IN ('.join(',', @classnum).')';
my @owed = ref($param->{owed})
? @{ $param->{owed} }
: ($param->{owed});
- push @search, map { s/^owed/$owed_sql/ } @owed;
+ push @search, map { s/^owed/$owed_sql/; $_ } @owed;
}
#open/net flags