header( '-expires' => '-2m' ),
- header('Current Receivables Report Results');
+my @where = ();
-open (REPORT, "freeside-receivables-report -v $user |");
+unless ( $cgi->param('all_customers') ) {
+
+ my $days = 0;
+ if ( $cgi->param('days') =~ /^\s*(\d+)\s*$/ ) {
+ $days = $1;
+ }
+
+ push @where, owed($days, 0, 'cust'=>1, 'noas'=>1). " > 0";
-print '';
-while() {
- print $_;
}
-print '
';
-print '