$same_pkgpart = 0;
}
+ $self->set('waive_setup', $opt->{'waive_setup'}) if $opt->{'waive_setup'};
+
# Before going any further here: if the package is still in the pre-setup
# state, it's safe to modify it in place. No need to charge/credit for
# partial period, transfer usage pools, copy invoice details, or change any
# dates. We DO need to "transfer" services (from the package to itself) to
# check their validity on the new pkgpart.
if ( ! $self->setup and ! $opt->{cust_pkg} and ! $opt->{cust_main} ) {
- foreach ( qw( locationnum pkgpart quantity refnum salesnum ) ) {
+ foreach ( qw( locationnum pkgpart quantity refnum salesnum waive_setup ) ) {
if ( length($opt->{$_}) ) {
$self->set($_, $opt->{$_});
}
$change{'cust_location'} = $cust_location;
}
+if ( $cgi->param('setup_discountnum') =~ /^(-?\d+)$/ ) {
+ if ( $1 == -2 ) {
+ $change{waive_setup} = 'Y';
+ } else {
+ $change{setup_discountnum} = $1;
+ $change{setup_discountnum_amount} = $cgi->param('setup_discountnum_amount');
+ $change{setup_discountnum_percent} = $cgi->param('setup_discountnum_percent');
+ }
+}
+
my $error;
my $now = time;
if (defined($cgi->param('contract_end'))) {
$change_to->locationnum == $change{'locationnum'} and
$change_to->quantity == $change{'quantity'} and
$change_to->contract_end == $change{'contract_end'} and
+ $change_to->waive_setup == $change{'waive_setup'} and
!$usagechanged
) {
%change = ( 'cust_pkg' => $change_to );
</TABLE>
</BR>
+% my $discount_cust_pkg = $curuser->access_right('Discount customer package');
+% my $waive_setup_fee = $curuser->access_right('Waive setup fee');
+%
+% if ( $discount_cust_pkg || $waive_setup_fee ) {
+ <FONT CLASS="fsinnerbox-title"><% mt('Discounting') |h %></FONT>
+ <% ntable("#cccccc") %>
+ <& /elements/tr-select-pkg-discount.html, disable_recur => 1, &>
+ </TABLE><BR>
+
+% }
<FONT CLASS="fsinnerbox-title"><% mt('Location') |h %></FONT>
<% ntable('#cccccc') %>