[freeside-commits] branch FREESIDE_4_BRANCH updated. 742caf90771b69e0e84391996a8b8f00aa93279f

[Ivan Kohler]

The branch, FREESIDE_4_BRANCH has been updated
       via  742caf90771b69e0e84391996a8b8f00aa93279f (commit)
      from  9b85a0bca26e006a0728d0085beb9ee61428689a (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 742caf90771b69e0e84391996a8b8f00aa93279f
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Fri Jul 26 11:35:11 2019 -0700

    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

diff --git a/FS/FS/part_pkg/flat_introrate.pm b/FS/FS/part_pkg/flat_introrate.pm
index f12b1accd..4c9abebc9 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)) {

-----------------------------------------------------------------------

Summary of changes:
 FS/FS/part_pkg/flat_introrate.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)