% if ( scalar(@cust_pkg) == 0 ) {
  <INPUT TYPE="hidden" NAME="pkgnum" VALUE="">
% } elsif ( scalar(@cust_pkg) == 1 ) {
  <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $cust_pkg[0]->pkgnum %>">
% } else {
  <TR>
    <TD ALIGN="right">For package</TD>
    <TD COLSPAN=2>
      <% include('select-cust_pkg-balances.html',
                   'cust_pkg' => \@cust_pkg,
                   'cgi'      => $opt{'cgi'},
                )
      %>
    </TD>
  </TR>

% }

<%init>
my %opt = @_;

my $custnum = $opt{'custnum'};

my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
  or die "unknown custnum $custnum\n";

my @cust_pkg =
  grep { ! $_->get('cancel') || $cust_main->balance_pkgnum($_->pkgnum) }
       $cust_main->all_pkgs;

</%init>