httemplate/elements/email-link.html

   1 % if ( $FS::CurrentUser::CurrentUser->access_right('Bulk send customer notices') ) {
   2 <A HREF="<%$p%>misc/email-customers.html?table=<%$table%>&<%$query%>"><%$label%></A>
   3 % }
   4 <%init>
   5 my %opt = @_;
   6 my $table = $opt{'table'};
   7 my $search_hash = $opt{'search_hash'};
   8 die "'table' required" if !$table;
   9 die "'search_hash' required" if !$search_hash;
  10
  11 my $uri = new URI;
  12 $uri->query_form($search_hash);
  13 my $query = $uri->query;
  14 my $label = ($opt{'label'} || 'Email a notice to these customers');
  15 </%init>
  16