<%init> my %opt = @_; my $cgi = $opt{'cgi'}; my @cust_pkg; if ( $opt{'cust_pkg'} ) { @cust_pkg = @{ $opt{'cust_pkg'} }; } else { my $custnum = $opt{'custnum'}; my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ) or die "unknown custnum $custnum\n"; @cust_pkg = grep { ! $_->get('cancel') || $cust_main->balance_pkgnum($_->pkgnum) } $cust_main->all_pkgs; }