From: ivan <ivan>
Date: Sat, 10 May 2003 05:39:24 +0000 (+0000)
Subject: important fixes backported from 1.5:
X-Git-Tag: freeside_1_4_1rc3~11
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=a5c62dfdff61cde56fd92011c51482ba5985eba7;p=freeside.git

important fixes backported from 1.5:
- substitute '0' for existing blank setup/recur fees
- use timelocal_nocheck instead of timelocal for proper wraparound
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index c5a5982d3..1c12e7b63 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -4,7 +4,7 @@ use strict;
 use vars qw( @ISA $conf $Debug $import );
 use Safe;
 use Carp;
-use Time::Local;
+use Time::Local qw(timelocal_nocheck);
 use Date::Format;
 #use Date::Manip;
 use Business::CreditCard;
@@ -953,6 +953,7 @@ sub bill {
                ": $setup_prog";
       };
       $setup_prog = $1;
+      $setup_prog = '0' if $setup_prog =~ /^\s*$/;
 
         #my $cpt = new Safe;
         ##$cpt->permit(); #what is necessary?
@@ -982,6 +983,7 @@ sub bill {
                ": $recur_prog";
       };
       $recur_prog = $1;
+      $recur_prog = '0' if $recur_prog =~ /^\s*$/;
 
       # shared with $recur_prog
       $sdate = $cust_pkg->bill || $cust_pkg->setup || $time;
@@ -1011,7 +1013,7 @@ sub bill {
       $mon += $part_pkg->freq;
       until ( $mon < 12 ) { $mon -= 12; $year++; }
       $cust_pkg->setfield('bill',
-        timelocal($sec,$min,$hour,$mday,$mon,$year));
+        timelocal_nocheck($sec,$min,$hour,$mday,$mon,$year));
       $cust_pkg_mod_flag = 1; 
     }