X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fprorate_Mixin.pm;h=2b4b59768345de385e077e0da48326e196e5cde3;hb=761ce3dd10efedf2e6be19ec9bdfa39876ce1679;hp=5690bbf2917da30e5ac096fef40a062f3b51e5d0;hpb=078809276a1904c19fd015423a4d2b94f80fbdca;p=freeside.git diff --git a/FS/FS/part_pkg/prorate_Mixin.pm b/FS/FS/part_pkg/prorate_Mixin.pm index 5690bbf29..2b4b59768 100644 --- a/FS/FS/part_pkg/prorate_Mixin.pm +++ b/FS/FS/part_pkg/prorate_Mixin.pm @@ -29,7 +29,7 @@ tie our %prorate_round_day_opts, 'Tie::IxHash', }, 'prorate_defer_bill' => { 'name' => 'When prorating, defer the first bill until the '. - 'billing day', + 'billing day or customers next bill date if synchronizing.', 'type' => 'checkbox', }, 'prorate_verbose' => { @@ -189,8 +189,7 @@ set, in which case it postpones the next bill to the cutoff day. =cut sub prorate_setup { - my $self = shift; - my ($cust_pkg, $sdate) = @_; + my ($self, $cust_pkg, $time) = @_; my @cutoff_days = $self->cutoff_day($cust_pkg); if ( @cutoff_days and $self->option('prorate_defer_bill', 1) ) { if ( $cust_pkg->setup ) { @@ -204,11 +203,11 @@ sub prorate_setup { # For some reason (probably user override), the bill date has been set even # though the package isn't billing yet. Start billing as though that was the # start date. - $sdate = $cust_pkg->bill; + $time = $cust_pkg->bill; $cust_pkg->setup($cust_pkg->bill); } # Now figure the start and end of the period that contains the start date. - my ($mnow, $mend, $mstart) = $self->_endpoints($sdate, @cutoff_days); + my ($mnow, $mend, $mstart) = $self->_endpoints($time, @cutoff_days); # If today is the cutoff day, set the next bill and setup both to # midnight today, so that the customer will be billed normally for a # month starting today.