diff options
| author | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
|---|---|---|
| committer | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
| commit | c82d349f864e6bd9f96fd1156903bc1f7193a203 (patch) | |
| tree | e117a87533656110b6acd56fc0ca64289892a9f5 /httemplate/elements/select-cust_pkg-balances.html | |
| parent | 74e058c8a010ef6feb539248a550d0bb169c1e94 (diff) | |
This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9
Diffstat (limited to 'httemplate/elements/select-cust_pkg-balances.html')
| -rw-r--r-- | httemplate/elements/select-cust_pkg-balances.html | 32 |
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 cd2e1a850..000000000 --- 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> |