diff options
author | Ivan Kohler <ivan@freeside.biz> | 2014-01-09 15:29:50 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2014-01-09 15:29:50 -0800 |
commit | 87a59b1bdf236765177c27ab18390ef1317cc34c (patch) | |
tree | 00ea14723ad672b5aedeb2a9f11a1f840ef3f619 /FS/FS/part_pkg/bulk_Common.pm | |
parent | 8a7eec7b683294a15aab0b2bf1710e10fa80b4c5 (diff) |
time/data/etc. unit pricing add-ons, RT#24392
Diffstat (limited to 'FS/FS/part_pkg/bulk_Common.pm')
-rw-r--r-- | FS/FS/part_pkg/bulk_Common.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/part_pkg/bulk_Common.pm b/FS/FS/part_pkg/bulk_Common.pm index 4e8850e..3477c44 100644 --- a/FS/FS/part_pkg/bulk_Common.pm +++ b/FS/FS/part_pkg/bulk_Common.pm @@ -31,12 +31,12 @@ $me = '[FS::part_pkg::bulk_Common]'; sub price_info { my $self = shift; - my $str = $self->SUPER::price_info; + my $str = $self->SUPER::price_info(@_); my $svc_setup_fee = $self->option('svc_setup_fee'); my $svc_recur_fee = $self->option('svc_recur_fee'); my $conf = new FS::Conf; my $money_char = $conf->config('money_char') || '$'; - $str .= " , bulk" if $str; + $str .= ", bulk " if $str; $str .= ": $money_char" . $svc_setup_fee . " one-time per service" if $svc_setup_fee; $str .= ", " if ($svc_setup_fee && $svc_recur_fee); @@ -120,5 +120,7 @@ sub is_free_options { qw( setup_fee recur_fee svc_setup_fee svc_recur_fee ); } +sub can_usageprice { 0; } + 1; |