httemplate/elements/tr-select-cust_pkg-balances.html

   1 % if ( scalar(@cust_pkg) == 0 ) {
   2   <INPUT TYPE="hidden" NAME="pkgnum" VALUE="">
   3 % } elsif ( scalar(@cust_pkg) == 1 ) {
   4   <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $cust_pkg[0]->pkgnum %>">
   5 % } else {
   6   <TR>
   7     <TD ALIGN="right">For package</TD>
   8     <TD COLSPAN=2>
   9       <% include('select-cust_pkg-balances.html',
  10                    'cust_pkg' => \@cust_pkg,
  11                    'cgi'      => $opt{'cgi'},
  12                 )
  13       %>
  14     </TD>
  15   </TR>
  16
  17 % }
  18
  19 <%init>
  20 my %opt = @_;
  21
  22 my $custnum = $opt{'custnum'};
  23
  24 my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
  25   or die "unknown custnum $custnum\n";
  26
  27 my @cust_pkg =
  28   grep { ! $_->get('cancel') || $cust_main->balance_pkgnum($_->pkgnum) }
  29        $cust_main->all_pkgs;
  30
  31 </%init>