X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fcurrency_fixed.pm;h=d4c14878644fff69ca9f39350906a72d88557018;hp=41d7a657ed730a6f36fcb4a1620055bc65044a37;hb=02d73ef84103d6bdaf49e6a179a0ad46f9719d25;hpb=07ed221540128b8c75f4cb5a2af1e01b25fa8e18 diff --git a/FS/FS/part_pkg/currency_fixed.pm b/FS/FS/part_pkg/currency_fixed.pm index 41d7a657e..d4c148786 100644 --- a/FS/FS/part_pkg/currency_fixed.pm +++ b/FS/FS/part_pkg/currency_fixed.pm @@ -39,22 +39,22 @@ sub price_info { } sub base_setup { - my($self, $cust_pkg, $sdate, $details, $param ) = @_; + my($self, $cust_pkg, $time, $details, $param ) = @_; - $self->calc_currency_option('setup_fee', $cust_pkg, $sdate, $details, $param); + $self->calc_currency_option('setup_fee', $cust_pkg, $time, $details, $param); } sub calc_setup { - 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); - $self->base_setup($cust_pkg, $sdate, $details, $param); + $self->base_setup($cust_pkg, $time, $details, $param); } use FS::Conf; sub calc_currency_option { - my($self, $optionname, $cust_or_quotation_pkg, $sdate, $details, $param) = @_; + my($self, $optionname, $cust_or_quotation_pkg, $time, $details, $param) = @_; my($currency, $amount) = $cust_or_quotation_pkg->part_pkg_currency_option($optionname);