httemplate/elements/select-cust_pkg-balances.html

   1 <SELECT NAME="pkgnum">
   2     <OPTION VALUE="">(any)
   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 %>
   6 % }
   7 </SELECT>
   8 <%init>
   9
  10 my %opt = @_;
  11
  12 my $cgi = $opt{'cgi'};
  13
  14 my @cust_pkg;
  15 if ( $opt{'cust_pkg'} ) {
  16
  17   @cust_pkg = @{ $opt{'cust_pkg'} };
  18
  19 } else {
  20
  21   my $custnum = $opt{'custnum'};
  22
  23   my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
  24     or die "unknown custnum $custnum\n";
  25
  26   @cust_pkg =
  27     grep { ! $_->get('cancel') || $cust_main->balance_pkgnum($_->pkgnum) }
  28          $cust_main->all_pkgs;
  29
  30 }
  31
  32 </%init>