3 % foreach my $cust_pkg (@cust_pkg) {
4 % my $sel = ( $cgi->param('pkgnum') == $cust_pkg->pkgnum ) ? 'SELECTED' : '';
5 <OPTION <% $sel %> VALUE="<% $cust_pkg->pkgnum %>"><% $cust_pkg->pkg_label_long |h %>
12 my $cgi = $opt{'cgi'};
15 if ( $opt{'cust_pkg'} ) {
17 @cust_pkg = @{ $opt{'cust_pkg'} };
21 my $custnum = $opt{'custnum'};
23 my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
24 or die "unknown custnum $custnum\n";
27 grep { ! $_->get('cancel') || $cust_main->balance_pkgnum($_->pkgnum) }