projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add skip_dcontext_suffix to skip CDRs with dcontext ending in a definable string...
[freeside.git]
/
FS
/
FS
/
part_pkg
/
torrus_Common.pm
diff --git
a/FS/FS/part_pkg/torrus_Common.pm
b/FS/FS/part_pkg/torrus_Common.pm
index
cbd9ee3
..
b32deab
100644
(file)
--- a/
FS/FS/part_pkg/torrus_Common.pm
+++ b/
FS/FS/part_pkg/torrus_Common.pm
@@
-7,6
+7,15
@@
our %info = ( 'disabled' => 1 ); #torrus_Common not a usable price plan directly
our $DEBUG = 1;
our $DEBUG = 1;
+sub recur_temporality { 'preceding'; }
+
+sub price_info {
+ my $self = shift;
+ my $str = $self->SUPER::price_info(@_);
+ $str .= " plus usage" if $str;
+ $str;
+}
+
sub calc_recur {
my $self = shift;
my($cust_pkg, $sdate, $details, $param ) = @_;
sub calc_recur {
my $self = shift;
my($cust_pkg, $sdate, $details, $param ) = @_;
@@
-80,7
+89,7
@@
sub calc_usage {
#add usage details to invoice
my $l = $self->_torrus_label;
#add usage details to invoice
my $l = $self->_torrus_label;
- my $d = "Last month's usage for $serviceid: ". sprintf('%2f',$max). $l;
+ my $d = "Last month's usage for $serviceid: ". sprintf('%
.
2f',$max). $l;
$d .= " (". ($max+$inc). "$l - $inc$l included)" if $inc;
$d .= " @ $money_char$rate/$l: $money_char$amount";
$d .= " (". ($max+$inc). "$l - $inc$l included)" if $inc;
$d .= " @ $money_char$rate/$l: $money_char$amount";