X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Frecur_Common.pm;h=fc87628ea99ad179eaf9b00a4143ca6960a09f0f;hp=729fb61259df6348fc906d1c71fabe5e6be04d16;hb=74f4610304eb373363ac07fc6e655d16c5f0ed33;hpb=7917cc1f73ef49554d05bc5039add533be725a3e diff --git a/FS/FS/part_pkg/recur_Common.pm b/FS/FS/part_pkg/recur_Common.pm index 729fb6125..fc87628ea 100644 --- a/FS/FS/part_pkg/recur_Common.pm +++ b/FS/FS/part_pkg/recur_Common.pm @@ -21,16 +21,16 @@ sub base_recur { sub calc_setup { # moved from all descendant packages which just had $self->option('setup_fee') - my($self, $cust_pkg, $sdate, $details, $param) = @_; + my($self, $cust_pkg, $time, $details, $param) = @_; - return 0 if $self->prorate_setup($cust_pkg, $sdate); + return 0 if $self->prorate_setup($cust_pkg, $time); my $charge = $self->option('setup_fee'); my $discount = 0; if ( $charge > 0 ) { $param->{'setup_charge'} = $charge; - $discount = $self->calc_discount($cust_pkg, $sdate, $details, $param); + $discount = $self->calc_discount($cust_pkg, \$time, $details, $param); delete $param->{'setup_charge'}; }