X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Freport_receivables.cgi;h=ac94e1a5c14b3e101e4db0c49e506d226c664aa4;hb=2c757d7db4cb6a7b9655de13206fcc84fb7ce61f;hp=7113ad5a7e4043931691231808f75aee3a22b015;hpb=b50b2e5f94774268c271484f9c07bfe316f95527;p=freeside.git diff --git a/httemplate/search/report_receivables.cgi b/httemplate/search/report_receivables.cgi index 7113ad5a7..ac94e1a5c 100755 --- a/httemplate/search/report_receivables.cgi +++ b/httemplate/search/report_receivables.cgi @@ -1,26 +1,225 @@ <% -use strict; -use vars qw( $cgi ); -use CGI; -use CGI::Carp qw(fatalsToBrowser); -use FS::UID qw(cgisuidsetup); + sub owed { + my($start, $end, %opt) = @_; -$cgi = new CGI; -&cgisuidsetup($cgi); + my @where = (); -print $cgi->header( '-expires' => '-2m' ), - header('Current Receivables Report Results'); + #handle start and end ranges -open (REPORT, "/usr/bin/freeside-receivables-report -v freeside |"); + #24h * 60m * 60s + push @where, "cust_bill._date <= extract(epoch from now())-". + ($start * 86400) + if $start; + + push @where, "cust_bill._date > extract(epoch from now()) - ". + ($end * 86400) + if $end; -print '
'; -while('; + #handle 'cust' option + + push @where, "cust_main.custnum = cust_bill.custnum" + if $opt{'cust'}; -print ') { - print $_; -} -print '