From: ivan <ivan>
Date: Tue, 31 Mar 2009 19:47:35 +0000 (+0000)
Subject: quiet warning: Argument "" isn't numeric in numeric eq (==) at /usr/local/share/perl... 
X-Git-Tag: root_of_svc_elec_features~1317
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=432ab2af40034d4f63f7771eff6207c73b057959

quiet warning: Argument "" isn't numeric in numeric eq (==) at /usr/local/share/perl/5.10.0/FS/part_pkg/voip_cdr.pm line 201
---

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