my ($mon,$year) =
(localtime( $cust_bill_pkg->sdate || $invoice_date ) )[4,5];
$mon++;
- my $freq = $part_pkg->freq || 1;
+ my $freq = $cust_bill_pkg->freq;
+ unless ($freq) {
+ $freq = $part_pkg->freq || 1; # less trustworthy fallback
+ }
if ( $freq !~ /(\d+)$/ ) {
$dbh->rollback if $oldAutoCommit;
return "daily/weekly package definitions not (yet?)".
'taxnum' => $self->taxnum,
'year' => 1900+$year,
'month' => $mon,
- 'amount' => sprintf("%.2f", $addl ),
+ 'amount' => sprintf('%.2f', $addl ),
} );
if ($cust_bill_pkg->billpkgnum) {
$cust_tax_exempt_pkg->billpkgnum($cust_bill_pkg->billpkgnum);