X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fsearch%2Fcust_main.html;h=4c7fa14aa0fecdf322eff1e5e87698bbd4d8498f;hp=5fb5ddad9dbb12a8d5bac516058be9dccdf40306;hb=1fe87434632f2627de487ca2aed6cfadea2c6061;hpb=bd39db7a960f64d6a19e714aa8d74ccab1fd04c5 diff --git a/httemplate/search/cust_main.html b/httemplate/search/cust_main.html index 5fb5ddad9..4c7fa14aa 100755 --- a/httemplate/search/cust_main.html +++ b/httemplate/search/cust_main.html @@ -1,6 +1,7 @@ -<% include( 'elements/search.html', - 'title' => 'Customer Search Results', - 'name' => 'customers', +<& elements/search.html, + 'title' => emt('Customer Search Results'), + 'menubar' => $menubar, + 'name' => emt('customers'), 'query' => $sql_query, 'count_query' => $count_query, 'header' => [ FS::UI::Web::cust_header( @@ -12,142 +13,152 @@ \&FS::UI::Web::cust_fields, @extra_fields, ], - ) -%> + 'sort_fields' => [ + FS::UI::Web::cust_sort_fields(), + @extra_sort_fields, + ], + 'color' => [ FS::UI::Web::cust_colors(), + map '', @extra_fields + ], + 'style' => [ FS::UI::Web::cust_styles(), + map '', @extra_fields + ], + 'align' => [ FS::UI::Web::cust_aligns(), + map '', @extra_fields + ], + 'links' => [ ( map { $_ ne 'Cust. Status' ? $link : '' } + FS::UI::Web::cust_header( + $cgi->param('cust_fields') + ) + ), + map { $_ eq 'num_referrals' + ? $referral_link + : '' + } + @extra_fields + ], +&> <%init> die "access denied" - unless ( $FS::CurrentUser::CurrentUser->access_right('List customers') && - $FS::CurrentUser::CurrentUser->access_right('List packages') - ); - -my $dbh = dbh; -my $conf = new FS::Conf; -my $countrydefault = $conf->config('countrydefault'); - -my($query) = $cgi->keywords; - -my @where = (); - -## -# parse agent -## - -if ( $cgi->param('agentnum') =~ /^(\d+)$/ and $1 ) { - push @where, - "agentnum = $1"; + unless $FS::CurrentUser::CurrentUser->access_right('Advanced customer search'); + +my %search_hash = (); + +#$search_hash{'query'} = $cgi->keywords; + +#scalars +my @scalars = qw ( + agentnum salesnum status + address city county state zip country location_history + invoice_terms + no_censustract with_geocode with_email tax no_tax POST no_POST + custbatch usernum + cancelled_pkgs + cust_fields flattened_pkgs + all_tags + all_pkg_classnums + any_pkg_status + with_referrals referral_status +); + +for my $param ( @scalars ) { + $search_hash{$param} = scalar( $cgi->param($param) ) + if length($cgi->param($param)); } -## -# parse cancelled package checkbox -## +#lists +for my $param (qw( classnum refnum pkg_classnum )) { + $search_hash{$param} = [ $cgi->param($param) ]; +} -my $pkgwhere = ""; +my $params = $cgi->Vars; -$pkgwhere .= "AND (cancel = 0 or cancel is null)" - unless $cgi->param('cancelled_pkgs'); +#contacts +$search_hash{'contacts'} = { + map { $_ => $cgi->param($_), } + grep { /^(contacts_*)/ && $cgi->param($_) } + keys %$params +}; -my $orderby; +#tags +$search_hash{'tagnum'} = [ + map { /^tagnum(\d+)/ && $1 } + grep { /^tagnum(\d+)/ && $cgi->param($_) } + keys %$params +]; -## -# dates -## +### +# parse dates +### -foreach my $field (qw( signupdate )) { +foreach my $field (qw( signupdate birthdate spouse_birthdate anniversary_date )) { my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi, $field); - next if $beginning == 0 && $ending == 4294967295; + next if $beginning == 0 && $ending == 4294967295 && ( $field ne 'signupdate' || !defined($cgi->param('signuphour')) ); + #or $disable{$cgi->param('status')}->{$field}; - push @where, - "cust_main.$field IS NOT NULL", - "cust_main.$field >= $beginning", - "cust_main.$field <= $ending"; - - $orderby ||= "ORDER BY cust_main.$field"; + unless ( $field eq 'signupdate' ) { + $beginning -= 43200; + $ending -= 43200; + } -} + my @ary = ( $beginning, $ending ); + push @ary, scalar($cgi->param('signuphour')) if $field eq 'signupdate'; -### -# payby -### + $search_hash{$field} = \@ary; -my @payby = grep /^([A-Z]{4})$/, $cgi->param('payby'); -if ( @payby ) { - push @where, '( '. join(' OR ', map "cust_main.payby = '$_'", @payby). ' )'; } -### - ## # amounts ## -my $balance_sql = FS::cust_main->balance_sql(); - -push @where, map { s/current_balance/$balance_sql/; $_ } - FS::UI::Web::parse_lt_gt($cgi, 'current_balance'); - -## -# setup queries, subs, etc. for the search -## +$search_hash{'current_balance'} = + [ FS::UI::Web::parse_lt_gt($cgi, 'current_balance') ]; -$orderby ||= 'ORDER BY custnum'; +### +# etc +### -# here is the agent virtualization -push @where, $FS::CurrentUser::CurrentUser->agentnums_sql; +my $sql_query = FS::cust_main::Search->search(\%search_hash); +my $count_query = delete($sql_query->{'count_query'}); +my @extra_headers = @{ delete($sql_query->{'extra_headers'}) }; +my @extra_fields = @{ delete($sql_query->{'extra_fields'}) }; +my @extra_sort_fields = @{ delete($sql_query->{'extra_sort_fields'}) }; -my $extra_sql = scalar(@where) ? ' WHERE '. join(' AND ', @where) : ''; +my $link = [ "${p}view/cust_main.cgi?", 'custnum' ]; -my $addl_from = 'LEFT JOIN cust_pkg USING ( custnum ) '; +my $referral_link = [ "${p}search/cust_main.cgi?referral_custnum=", 'custnum' ]; -my $count_query = "SELECT COUNT(*) FROM cust_main $extra_sql"; +### +# email links +### -my $select = join(', ', - 'cust_main.custnum', - FS::UI::Web::cust_sql_fields($cgi->param('cust_fields')), - ); +my $menubar = []; -my (@extra_headers) = (); -my (@extra_fields) = (); +if ( $FS::CurrentUser::CurrentUser->access_right('Bulk send customer notices') ) { -if ($cgi->param('flattened_pkgs')) { + # set so invoice emails are default if showing that field. + $search_hash{'classnums'} = 'invoice' if $cgi->param('cust_fields') =~ /Invoicing email/; - if ($dbh->{Driver}->{Name} eq 'Pg') { + # URI::query_from does not support hashref + # results in: ...&contacts=HASH(0x55e16cb81da8)&... + my %query_hash = %search_hash; + foreach (keys %{$query_hash{contacts}}) { $query_hash{$_} = $query_hash{contacts}{$_}; } - $select .= ", array_to_string(array(select pkg from cust_pkg left join part_pkg using ( pkgpart ) where cust_main.custnum = cust_pkg.custnum $pkgwhere),'|') as magic"; + delete $query_hash{contacts} + if exists $query_hash{contacts} && ref $query_hash{contacts}; - }elsif ($dbh->{Driver}->{Name} =~ /^mysql/i) { - $select .= ", GROUP_CONCAT(pkg SEPARATOR '|') as magic"; - $addl_from .= " LEFT JOIN part_pkg using ( pkgpart )"; - }else{ - warn "warning: unknown database type ". $dbh->{Driver}->{Name}. - "omitting packing information from report."; - } - - my $header_query = "SELECT COUNT(cust_pkg.custnum = cust_main.custnum) AS count FROM cust_main $addl_from $extra_sql $pkgwhere group by cust_main.custnum order by count desc limit 1"; - - my $sth = dbh->prepare($header_query) or die dbh->errstr; - $sth->execute() or die $sth->errstr; - my $headerrow = $sth->fetchrow_arrayref; - my $headercount = $headerrow ? $headerrow->[0] : 0; - while($headercount) { - unshift @extra_headers, "Package ". $headercount; - unshift @extra_fields, eval q!sub {my $c = shift; - my @a = split '\|', $c->magic; - my $p = $a[!.--$headercount. q!]; - $p; - };!; - } + my $uri = new URI; + $uri->query_form( \%query_hash ); + my $query = $uri->query; + push @$menubar, emt('Email a notice to these customers message recipients') => + "${p}misc/email-customers.html?table=cust_main&classnums=message&$query"; + push @$menubar, emt('Email a notice to these customers invoice recipients') => + "${p}misc/email-customers.html?table=cust_main&classnums=invoice&$query"; } -my $sql_query = { - 'table' => 'cust_main', - 'select' => $select, - 'hashref' => {}, - 'extra_sql' => "$extra_sql $orderby", -}; - -