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;
 
+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 ) = @_;
@@ -80,7 +89,7 @@ sub calc_usage {
 
     #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";