<& /elements/header-popup.html, "Discount Package" &> <& /elements/error.html &>
<% ntable('#cccccc') %> Current package  <% $curuser->option('show_pkgnum') ? $cust_pkg->pkgnum.': ' : '' %><% $part_pkg->pkg |h %> - <% $part_pkg->comment |h %> <& /elements/tr-select-pkg-discount.html, curr_value_setup => $setup_discountnum, curr_value_recur => $recur_discountnum, disable_setup => $disable_setup, disable_recur => $disable_recur, &>
<%init> my $conf = new FS::Conf; my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right([ 'Discount customer package', 'Waive setup fee']); my $pkgnum = scalar($cgi->param('pkgnum')); $pkgnum =~ /^(\d+)$/ or die "illegal pkgnum $pkgnum"; $pkgnum = $1; my $pkgdiscountnum = ''; my $cust_pkg = qsearchs({ 'table' => 'cust_pkg', 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', 'hashref' => { 'pkgnum' => $pkgnum }, 'extra_sql' => ' AND '. $curuser->agentnums_sql, }) or die "unknown pkgnum $pkgnum"; my $part_pkg = $cust_pkg->part_pkg; my @discounts = $cust_pkg->cust_pkg_discount_active; my ($setup_discountnum, $recur_discountnum); foreach (@discounts) { if ( $_->setuprecur eq 'setup') { die "multiple setup discounts on pkg#$pkgnum" if $setup_discountnum; $setup_discountnum = $_->discountnum; } elsif ( $_->setuprecur eq 'recur' ) { die "multiple setup discounts on pkg#$pkgnum" if $recur_discountnum; $recur_discountnum = $_->discountnum; } } if ( $cust_pkg->waive_setup ) { $setup_discountnum = -2; } my $disable_setup = 1; if ( !$cust_pkg->get('setup') and $cust_pkg->base_setup > 0 ) { $disable_setup = 0; } my $disable_recur = 1; if ( $cust_pkg->base_recur > 0 ) { $disable_recur = 0; }