X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=httemplate%2Felements%2Femail-link.html;h=012afff1ae384e9a1adf6ab28e3c0c7bfbdd432c;hb=70203e3be5de0331ba031d94972c274183c595d2;hp=692e5bc2e8aa32b687c2c9f4039417a5d99fb686;hpb=b5c4237a34aef94976bc343c8d9e138664fc3984;p=freeside.git
diff --git a/httemplate/elements/email-link.html b/httemplate/elements/email-link.html
index 692e5bc2e..012afff1a 100644
--- a/httemplate/elements/email-link.html
+++ b/httemplate/elements/email-link.html
@@ -1,16 +1,19 @@
% if ( $FS::CurrentUser::CurrentUser->access_right('Bulk send customer notices') ) {
-<%$label%>
+<%$label%>
% }
<%init>
my %opt = @_;
-my $table = $opt{'table'};
my $search_hash = $opt{'search_hash'};
-die "'table' required" if !$table;
+die "'table' required" if !$opt{'table'};
die "'search_hash' required" if !$search_hash;
my $uri = new URI;
-$uri->query_form($search_hash);
-my $query = $uri->query;
+my @params = map { $_, $search_hash->{$_} } sort keys %$search_hash;
+$uri->query_form( @params,
+ table => $opt{'table'},
+ agent_virt_agentnum => $opt{'agent_virt_agentnum'}
+ );
+my $query = $m->scomp('/elements/create_uri_query', query=>$uri->query);
my $label = ($opt{'label'} || 'Email a notice to these customers');
%init>