summaryrefslogtreecommitdiff
path: root/httemplate/elements/select-cust_pkg-balances.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/elements/select-cust_pkg-balances.html')
-rw-r--r--httemplate/elements/select-cust_pkg-balances.html32
1 files changed, 0 insertions, 32 deletions
diff --git a/httemplate/elements/select-cust_pkg-balances.html b/httemplate/elements/select-cust_pkg-balances.html
deleted file mode 100644
index cd2e1a8..0000000
--- a/httemplate/elements/select-cust_pkg-balances.html
+++ /dev/null
@@ -1,32 +0,0 @@
-<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>