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