projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
more self-service make payment UI work
[freeside.git]
/
FS
/
FS
/
cust_main.pm
diff --git
a/FS/FS/cust_main.pm
b/FS/FS/cust_main.pm
index
cefc764
..
608c5e3
100644
(file)
--- 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 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;
use Date::Format;
#use Date::Manip;
use Business::CreditCard;
@@
-994,6
+994,7
@@
sub bill {
": $setup_prog";
};
$setup_prog = $1;
": $setup_prog";
};
$setup_prog = $1;
+ $setup_prog = '0' if $setup_prog =~ /^\s*$/;
#my $cpt = new Safe;
##$cpt->permit(); #what is necessary?
#my $cpt = new Safe;
##$cpt->permit(); #what is necessary?
@@
-1023,6
+1024,7
@@
sub bill {
": $recur_prog";
};
$recur_prog = $1;
": $recur_prog";
};
$recur_prog = $1;
+ $recur_prog = '0' if $recur_prog =~ /^\s*$/;
# shared with $recur_prog
$sdate = $cust_pkg->bill || $cust_pkg->setup || $time;
# shared with $recur_prog
$sdate = $cust_pkg->bill || $cust_pkg->setup || $time;
@@
-1052,7
+1054,7
@@
sub bill {
$mon += $part_pkg->freq;
until ( $mon < 12 ) { $mon -= 12; $year++; }
$cust_pkg->setfield('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;
}
$cust_pkg_mod_flag = 1;
}