X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_bill%2FSearch.pm;h=ee5da3be87f7023d8619a4dbdf71adab132024e2;hb=bb7e827141c9ed68f30765c9ca2ddcd1d760ad2d;hp=38f11d16508571757920a9cc1b037d619062f359;hpb=32365ef65ca6a40b5262cf166543b1d84c6aa57d;p=freeside.git diff --git a/FS/FS/cust_bill/Search.pm b/FS/FS/cust_bill/Search.pm index 38f11d165..ee5da3be8 100644 --- a/FS/FS/cust_bill/Search.pm +++ b/FS/FS/cust_bill/Search.pm @@ -232,7 +232,7 @@ sub search_sql_where { ? @{ $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).')'; @@ -276,7 +276,7 @@ sub search_sql_where { 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