turn off debugging

[freeside.git] / FS / FS / cust_bill_ApplicationCommon.pm

diff --git a/FS/FS/cust_bill_ApplicationCommon.pm b/FS/FS/cust_bill_ApplicationCommon.pm
index fb06a4b..64699d5 100644 (file)
--- 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() },
   });