X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fflat_introrate.pm;h=4c9abebc9d2936f73fb6d983155af61a30fdda8f;hp=f12b1accdaf58dcb722032f4af0db697f8684c94;hb=4d32fe65cf99b766886fdfad4d8d3c7a3537bbc1;hpb=02d73ef84103d6bdaf49e6a179a0ad46f9719d25 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)) {