- $cust_pkg->set('change_date', $time);
- $cust_pkg->set('start_date', ''); # it's starting now
- # if we are crediting unused time, then create the new package as a new
- # package, charge its setup fee, etc. (same as an immediate change)
- if (! $unused_credit) {
- foreach my $date ( qw(setup bill last_bill susp adjourn resume
- contract_end ) ) {
- $cust_pkg->set($date, $self->getfield($date));
- }
+ # except those that implement the future package change behavior
+ foreach (qw(change_to_pkgnum start_date expire)) {
+ $cust_pkg->set($_, '');