[freeside-commits] freeside/httemplate/elements email-link.html, NONE, 1.1

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/httemplate/elements
In directory wavetail.420.am:/tmp/cvs-serv1456/httemplate/elements

Added Files:
	email-link.html 
Log Message:
email_search_result for cust_pkg and svc_broadband, RT#8736

--- NEW FILE: email-link.html ---
% if ( $FS::CurrentUser::CurrentUser->access_right('Bulk send customer notices') ) {
<A HREF="<%$p%>misc/email-customers.html?table=<%$table%>&<%$query%>"><%$label%></A>
% }
<%init>
my %opt = @_;
my $table = $opt{'table'};
my $search_hash = $opt{'search_hash'};
die "'table' required" if !$table;
die "'search_hash' required" if !$search_hash;

my $uri = new URI;
$uri->query_form($search_hash);
my $query = $uri->query;
my $label = ($opt{'label'} || 'Email a notice to these customers');
</%init>