1 % if ( $FS::CurrentUser::CurrentUser->access_right('Bulk send customer notices') ) {
2 <A HREF="<%$p%>misc/email-customers.html?<%$query%>"><%$label%></A>
6 my $search_hash = $opt{'search_hash'};
7 die "'table' required" if !$opt{'table'};
8 die "'search_hash' required" if !$search_hash;
11 my @params = map { $_, $search_hash->{$_} } sort keys %$search_hash;
12 $uri->query_form( @params,
13 table => $opt{'table'},
14 agent_virt_agentnum => $opt{'agent_virt_agentnum'}
16 my $query = $m->scomp('/elements/create_uri_query', query=>$uri->query);
17 my $label = ($opt{'label'} || 'Email a notice to these customers');