X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fsearch%2Fcust_main.html;h=06a0d54280855e4bdc8221653639ace8daeb9328;hp=1cc44d68a00d9003566b6f34c51391734ce022d2;hb=6b5dda03831aef0cb5689cf2acf3fac47e4b12cb;hpb=80cea05076d397b3b06246a3df4451aea415e9fc diff --git a/httemplate/search/cust_main.html b/httemplate/search/cust_main.html index 1cc44d68a..06a0d5428 100755 --- a/httemplate/search/cust_main.html +++ b/httemplate/search/cust_main.html @@ -51,6 +51,7 @@ my %search_hash = (); my @scalars = qw ( agentnum salesnum status address city county state zip country location_history + daytime night mobile invoice_terms no_censustract with_geocode with_email tax no_tax POST no_POST custbatch usernum @@ -140,6 +141,9 @@ my $menubar = []; if ( $FS::CurrentUser::CurrentUser->access_right('Bulk send customer notices') ) { + # set so invoice emails are default if showing that field. + $search_hash{'classnums'} = 'invoice' if $cgi->param('cust_fields') =~ /Invoicing email/; + # URI::query_from does not support hashref # results in: ...&contacts=HASH(0x55e16cb81da8)&... my %query_hash = %search_hash; @@ -152,9 +156,19 @@ if ( $FS::CurrentUser::CurrentUser->access_right('Bulk send customer notices') ) $uri->query_form( \%query_hash ); my $query = $uri->query; - push @$menubar, emt('Email a notice to these customers') => - "${p}misc/email-customers.html?table=cust_main&$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"; } +### +# agent transfer link +### + +my $agent_transfer_link = include('/elements/agent_transfer_link.html', { + 'search' => \%search_hash, +}); +push @$menubar, emt('popup') => '
'.$agent_transfer_link.'
'; +