diff options
Diffstat (limited to 'httemplate/search/report_receivables.cgi')
| -rwxr-xr-x | httemplate/search/report_receivables.cgi | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/httemplate/search/report_receivables.cgi b/httemplate/search/report_receivables.cgi index 7113ad5a7..6b96ba7a5 100755 --- a/httemplate/search/report_receivables.cgi +++ b/httemplate/search/report_receivables.cgi @@ -1,18 +1,20 @@ <% use strict; -use vars qw( $cgi ); +use vars qw( $cgi $user ); use CGI; -use CGI::Carp qw(fatalsToBrowser); -use FS::UID qw(cgisuidsetup); +use CGI::Carp qw( fatalsToBrowser ); +use FS::UID qw( cgisuidsetup getotaker ); $cgi = new CGI; &cgisuidsetup($cgi); +$user = getotaker; + print $cgi->header( '-expires' => '-2m' ), - header('Current Receivables Report Results'); + header('Current Receivables Report Results'); -open (REPORT, "/usr/bin/freeside-receivables-report -v freeside |"); +open (REPORT, "/usr/bin/freeside-receivables-report -v $user |"); print '<PRE>'; while(<REPORT>) { |
