diff options
| author | Jonathan Prykop <jonathan@freeside.biz> | 2015-04-13 18:00:12 -0500 |
|---|---|---|
| committer | Jonathan Prykop <jonathan@freeside.biz> | 2015-04-13 18:00:12 -0500 |
| commit | a179189cab28d3c1b7ae0101df5c1a95c4a72003 (patch) | |
| tree | 34f6351dda524dc41185f5f15e1fce489808300e | |
| parent | dd14eb402e7ed67d1f5ad63415bf169a3e79135b (diff) | |
| parent | 470878235c5f61ca7acc6ef618943071ca9736b5 (diff) | |
Merge branch 'master' of git.freeside.biz:/home/git/freeside
| -rw-r--r-- | FS/FS/cust_pkg.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index eaadd95db..3e87aadf5 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -2025,6 +2025,7 @@ sub change { my $unused_credit = 0; my $keep_dates = $opt->{'keep_dates'}; + # Special case. If the pkgpart is changing, and the customer is # going to be credited for remaining time, don't keep setup, bill, # or last_bill dates, and DO pass the flag to cancel() to credit @@ -2085,6 +2086,15 @@ sub change { $cust_pkg->set("change_$_", $self->get($_)); } $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)); + } + } $error = $cust_pkg->replace; } else { |