X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_bill_ApplicationCommon.pm;h=64699d5bc3e1a8f1c6e91049cd5e94691a5686ec;hb=8f265d17c5ea2bba0d450391145229e571c868fc;hp=fb06a4b1fa3d6ca1b578aff3e1c5e988c051ae10;hpb=4845aaefedfcbaa25716694b6d80f3dd6d56530a;p=freeside.git diff --git a/FS/FS/cust_bill_ApplicationCommon.pm b/FS/FS/cust_bill_ApplicationCommon.pm index fb06a4b1f..64699d5bc 100644 --- a/FS/FS/cust_bill_ApplicationCommon.pm +++ b/FS/FS/cust_bill_ApplicationCommon.pm @@ -7,7 +7,7 @@ use FS::Record qw( qsearch qsearchs dbh ); @ISA = qw( FS::Record ); -$DEBUG = 1; +$DEBUG = 0; =head1 NAME @@ -173,6 +173,8 @@ sub apply_to_lineitems { 'billpkgnum' => $cust_bill_pkg->billpkgnum, 'amount' => $amount, 'setuprecur' => ( $cust_bill_pkg->setup > 0 ? 'setup' : 'recur' ), + 'sdate' => $cust_bill_pkg->sdate, + 'edate' => $cust_bill_pkg->edate, }); my $error = $application->insert; if ( $error ) { @@ -194,7 +196,7 @@ Returns all the specific line item applications for this invoice application. sub lineitem_applications { my $self = shift; my $primary_key = dbdef->table($self->table)->primary_key; - qsearchs({ + qsearch({ 'table' => $self->lineitem_breakdown_table, 'hashref' => { $primary_key => $self->$primary_key() }, });