|| $cust_pkg->setup
|| $time;
- if ( $DEBUG > 2 ) {
- warn 'part_pkg.freq: '. $part_pkg->freq. "\n";
- warn 'cust_pkg.bill: '. $cust_pkg->getfield('bill'). "\n";
- warn "time: $time\n";
- warn "options{cancel}: $options{cancel}\n";
- }
-
#over two params! lets at least switch to a hashref for the rest...
my $increment_next_bill = ( $part_pkg->freq ne '0'
&& ( $cust_pkg->getfield('bill') || 0 ) <= $time
warn "calling $method on cust_pkg ". $cust_pkg->pkgnum.
" for pkgpart ". $cust_pkg->pkgpart.
- " with params ". join(' / ', map "$_=>$params{$_}", keys %param). "\n"
+ " with params ". join(' / ', map "$_=>$param{$_}", keys %param). "\n"
if $DEBUG > 2;
$recur = eval { $cust_pkg->$method( \$sdate, \@details, \%param ) };
'freq' => $part_pkg->freq,
};
- if ( $part_pkg->option('recur_temporality', 1) eq 'preceding' ) {
+ if ( $part_pkg->recur_temporality eq 'preceding' ) {
$cust_bill_pkg->sdate( $hash{last_bill} );
$cust_bill_pkg->edate( $sdate - 86399 ); #60s*60m*24h-1
$cust_bill_pkg->edate( $time ) if $options{cancel};
- } else { #if ( $part_pkg->option('recur_temporality', 1) eq 'upcoming' ) {
+ } else { #if ( $part_pkg->recur_temporality eq 'upcoming' ) {
$cust_bill_pkg->sdate( $sdate );
$cust_bill_pkg->edate( $cust_pkg->bill );
#$cust_bill_pkg->edate( $time ) if $options{cancel};