X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Fcust_bill.html;h=0e7f2110c88c2d223ff9b5f0ad762edd498f04c6;hb=b1c1559dec0570bc401ccd0e29e66a9bf6f151e1;hp=751bef677fef292b194f05e0a100df82f6b96e4c;hpb=b0ca0f4c6dc42596f1b1d838f897042589af8252;p=freeside.git diff --git a/httemplate/search/cust_bill.html b/httemplate/search/cust_bill.html index 751bef677..0e7f2110c 100755 --- a/httemplate/search/cust_bill.html +++ b/httemplate/search/cust_bill.html @@ -22,7 +22,14 @@ sub { time2str('%b %d %Y', shift->_date ) }, \&FS::UI::Web::cust_fields, ], - 'align' => 'rrrr'.FS::UI::Web::cust_aligns(), + 'sort_fields' => [ + 'COALESCE( agent_invid, invnum )', + FS::cust_bill->owed_sql, + FS::cust_bill->net_sql, + 'charged', + '_date', + ], + 'align' => 'rrrrl'.FS::UI::Web::cust_aligns(), 'links' => [ $link, $link, @@ -85,25 +92,21 @@ if ( $cgi->param('invnum') =~ /^\s*(FS-)?(\d+)\s*$/ ) { } else { #some false laziness w/cust_bill::re_X - my @where; my $orderby = 'ORDER BY cust_bill._date'; - if ( $cgi->param('beginning') - && $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/ ) { - $search{'begin'} = str2time($1); - } - if ( $cgi->param('ending') - && $cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/ ) { - $search{'end'} = str2time($1) + 86399; + if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) { + $search{'agentnum'} = $1; } - if ( $cgi->param('begin') =~ /^(\d+)$/ ) { - $search{'begin'} = $1; - } - if ( $cgi->param('end') =~ /^(\d+)$/ ) { - $search{'end'} = $1; + if ( $cgi->param('custnum') =~ /^(\d+)$/ ) { + $search{'custnum'} = $1; } + # begin/end/beginning/ending + my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi, ''); + $search{'_date'} = [ $beginning, $ending ] + unless $beginning == 0 && $ending == 4294967295; + if ( $cgi->param('invnum_min') =~ /^\s*(\d+)\s*$/ ) { $search{'invnum_min'} = $1; } @@ -111,9 +114,9 @@ if ( $cgi->param('invnum') =~ /^\s*(FS-)?(\d+)\s*$/ ) { $search{'invnum_max'} = $1; } - if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) { - $search{'agentnum'} = $1; - } + #amounts + $search{$_} = [ FS::UI::Web::parse_lt_gt($cgi, $_) ] + foreach qw( charged owed ); $search{'open'} = 1 if $cgi->param('open'); $search{'net'} = 1 if $cgi->param('net' ); @@ -130,8 +133,16 @@ if ( $cgi->param('invnum') =~ /^\s*(FS-)?(\d+)\s*$/ ) { $search{'newest_percust'} = 1; $count_query = "SELECT COUNT(DISTINCT cust_bill.custnum), 'N/A', 'N/A'"; } + + my $payby_sql = ''; + $payby_sql = ' AND (' . + join(' OR ', map { "cust_main.payby = '$_'" } $cgi->param('payby') ) . + ')' + if $cgi->param('payby'); - my $extra_sql = ' WHERE '. FS::cust_bill->search_sql( \%search ); + my $extra_sql = ' WHERE '. + FS::cust_bill->search_sql_where( \%search ). + $payby_sql; unless ( $count_query ) { $count_query = 'SELECT COUNT(*), '. join(', ', @@ -188,7 +199,12 @@ my $html_init = join("\n", map { $_, #key ), qq!
!, - ( map qq!!, keys %search ), + ( map { my $f = $_; + my @values = ref($search{$f}) ? @{ $search{$f} } : $search{$f}; + map qq!!, @values; + } + keys %search + ), qq!
! } qw( print_ email_ fax_ ftp_ spool_ ) ).