diff options
author | Ivan Kohler <ivan@freeside.biz> | 2019-07-26 11:35:08 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2019-07-26 11:35:08 -0700 |
commit | 4d32fe65cf99b766886fdfad4d8d3c7a3537bbc1 (patch) | |
tree | 2c31acd20ccd9807b18380f5b38f5e7adaf75047 | |
parent | 02d73ef84103d6bdaf49e6a179a0ad46f9719d25 (diff) |
clarify interface difference between calc_setup and calc_recur: calc_setup takes a start time, calc_recur takes a start time scalar reference, RT#83503
-rw-r--r-- | FS/FS/part_pkg/flat_introrate.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/part_pkg/flat_introrate.pm b/FS/FS/part_pkg/flat_introrate.pm index f12b1ac..4c9abeb 100644 --- a/FS/FS/part_pkg/flat_introrate.pm +++ b/FS/FS/part_pkg/flat_introrate.pm @@ -73,15 +73,15 @@ sub intro_end { } sub base_recur { - my($self, $cust_pkg, $time ) = @_; + my($self, $cust_pkg, $sdate ) = @_; my $now; - if (!$time) { # the "$sdate" from _make_lines + if (!$sdate) { # the "$sdate" from _make_lines my $log = FS::Log->new('FS::part_pkg'); $log->warning("flat_introrate base_recur requires date!"); $now = time; } else { - $now = $$time; + $now = $$sdate; } if ($now < $self->intro_end($cust_pkg)) { |