X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_pkg.pm;h=1d0cc4fbc5c002c403b83dc83dbbb59c9be050ec;hp=fdb62619d3515e76d1eebb7391adb2fee8327a53;hb=5f2c3a88d92952d13a5231a230e332e1a8e94016;hpb=7eb4daaa7d76c7195d0bf357a99ccf4ee1962b8a diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index fdb62619d..1d0cc4fbc 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -2346,13 +2346,15 @@ sub change { $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->{$_}); }