don't throw noisy warnings about missing new recur_temporality, RT#3851

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 086fded..697f478 100644 (file)
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -2104,10 +2104,10 @@ sub bill {
           'details'   => \@details,
         });
 
-        if ( $part_pkg->option('recur_temporality') eq 'preceding' ) {
+        if ( $part_pkg->option('recur_temporality', 1) eq 'preceding' ) {
           $cust_bill_pkg->sdate( $hash{last_bill} );
           $cust_bill_pkg->edate( $sdate - 86399   ); #60s*60m*24h-1
-        } else { #if ( $part_pkg->option('recur_temporality') eq 'upcoming' ) {
+        } else { #if ( $part_pkg->option('recur_temporality', 1) eq 'upcoming' ) {
           $cust_bill_pkg->sdate( $sdate );
           $cust_bill_pkg->edate( $cust_pkg->bill );
         }

diff --git a/FS/FS/part_pkg/flat.pm b/FS/FS/part_pkg/flat.pm
index 6f2a56a..a884925 100644 (file)
--- a/FS/FS/part_pkg/flat.pm
+++ b/FS/FS/part_pkg/flat.pm
@@ -131,7 +131,7 @@ sub calc_recur {
   my $last_bill = $cust_pkg->get('last_bill'); #->last_bill falls back to setup
 
   return 0
-    if $self->option('recur_temporality') eq 'preceding' && $last_bill == 0;
+    if $self->option('recur_temporality', 1) eq 'preceding' && $last_bill == 0;
 
   $self->base_recur($cust_pkg);
 }

diff --git a/FS/FS/part_pkg/voip_cdr.pm b/FS/FS/part_pkg/voip_cdr.pm
index 1af5d47..3ff791c 100644 (file)
--- a/FS/FS/part_pkg/voip_cdr.pm
+++ b/FS/FS/part_pkg/voip_cdr.pm
@@ -145,7 +145,7 @@ sub calc_recur {
   my $last_bill = $cust_pkg->get('last_bill'); #->last_bill falls back to setup
 
   return 0
-    if $self->option('recur_temporality') eq 'preceding' && $last_bill == 0;
+    if $self->option('recur_temporality', 1) eq 'preceding' && $last_bill == 0;
 
   my $ratenum = $cust_pkg->part_pkg->option('ratenum');