httemplate/elements/email-link.html

   1 % if ( $FS::CurrentUser::CurrentUser->access_right('Bulk send customer notices') ) {
   2 <A HREF="<%$p%>misc/email-customers.html?<%$query%>"><%$label%></A>
   3 % }
   4 <%init>
   5 my %opt = @_;
   6 my $search_hash = $opt{'search_hash'};
   7 die "'table' required" if !$opt{'table'};
   8 die "'search_hash' required" if !$search_hash;
   9
  10 my $uri = new URI;
  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'}
  15                 );
  16 my $query = $m->scomp('/elements/create_uri_query', query=>$uri->query);
  17 my $label = ($opt{'label'} || 'Email a notice to these customers');
  18 </%init>
  19