don't run my local expenses kludge by default; horrible performance

[freeside.git] / FS / FS / Report / Table / Monthly.pm

diff --git a/FS/FS/Report/Table/Monthly.pm b/FS/FS/Report/Table/Monthly.pm
index 9aebeee..3bbf01f 100644 (file)
--- a/FS/FS/Report/Table/Monthly.pm
+++ b/FS/FS/Report/Table/Monthly.pm
@@ -1,13 +1,15 @@
 package FS::Report::Table::Monthly;
 
 use strict;
 package FS::Report::Table::Monthly;
 
 use strict;

-use vars qw( @ISA );
+use vars qw( @ISA $expenses_kludge );

 use Time::Local;
 use FS::UID qw( dbh );
 use FS::Report::Table;
 
 @ISA = qw( FS::Report::Table );
 
 use Time::Local;
 use FS::UID qw( dbh );
 use FS::Report::Table;
 
 @ISA = qw( FS::Report::Table );
 

+$expenses_kludge = 0;
+

 =head1 NAME
 
 FS::Report::Table::Monthly - Tables of report data, indexed monthly
 =head1 NAME
 
 FS::Report::Table::Monthly - Tables of report data, indexed monthly


@@ -83,7 +85,7 @@ sub netsales { #net sales
   );
 
   #horrible local kludge
   );
 
   #horrible local kludge

-  my $expenses = $self->scalar_sql("
+  my $expenses = !$expenses_kludge ? 0 : $self->scalar_sql("

     SELECT SUM(cust_bill_pkg.setup)
     FROM cust_bill_pkg, cust_bill, cust_pkg, part_pkg
     WHERE cust_bill.invnum = cust_bill_pkg.invnum
     SELECT SUM(cust_bill_pkg.setup)
     FROM cust_bill_pkg, cust_bill, cust_pkg, part_pkg
     WHERE cust_bill.invnum = cust_bill_pkg.invnum


@@ -113,7 +115,7 @@ sub receipts { #cashflow
   );
 
   #horrible local kludge that doesn't even really work right
   );
 
   #horrible local kludge that doesn't even really work right

-  my $expenses = $self->scalar_sql("
+  my $expenses = !$expenses_kludge ? 0 : $self->scalar_sql("

     SELECT SUM(cust_bill_pay.amount)
     FROM cust_bill_pay, cust_bill
     WHERE cust_bill_pay.invnum = cust_bill.invnum
     SELECT SUM(cust_bill_pay.amount)
     FROM cust_bill_pay, cust_bill
     WHERE cust_bill_pay.invnum = cust_bill.invnum