blob: cd2e1a8507284529046dc1e3d642b9ea2aa89eed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
<SELECT NAME="pkgnum">
<OPTION VALUE="">(any)
% foreach my $cust_pkg (@cust_pkg) {
% my $sel = ( $cgi->param('pkgnum') == $cust_pkg->pkgnum ) ? 'SELECTED' : '';
<OPTION <% $sel %> VALUE="<% $cust_pkg->pkgnum %>"><% $cust_pkg->pkg_label_long |h %>
% }
</SELECT>
<%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;
}
</%init>
|
