die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
-my $link = "${p}search/cust_bill_pkg.cgi?nottax=1;include_comp_cust=1";
+my $link = "${p}search/cust_bill_pkg.cgi?nottax=1";
my $bottom_link = "$link;";
my $use_override = $cgi->param('use_override') ? 1 : 0;
push @where, "_date >= $beginning",
"_date <= $ending";
-push @where , " payby != 'COMP' "
- unless $cgi->param('include_comp_cust');
-
if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
push @where, "cust_main.agentnum = $1";
}
#here is the agent virtualization
push @where, $curuser->agentnums_sql( 'table'=>'cust_main' );
-#well, because cust_bill_pkg.cgi has it and without it the numbers don't match..
-push @where , " payby != 'COMP' "
- unless $cgi->param('include_comp_cust');
-
my %total = ();
my %total_legacy = ();
foreach my $agentnum (@agentnums) {