diff options
| author | cvs2git <cvs2git> | 2010-11-05 19:05:57 +0000 |
|---|---|---|
| committer | cvs2git <cvs2git> | 2010-11-05 19:05:57 +0000 |
| commit | aaf8baf3662e16e9414de236a39f8801a8c41b01 (patch) | |
| tree | 2cda603e4311b3e80f79b93d9bcce3a7c7c2d053 /httemplate/elements/email-link.html | |
| parent | 995a145c931164347683071c95c6754379d36604 (diff) | |
| parent | 9b2de4257b6a2877434008188e52b8ef71ff339d (diff) | |
This commit was manufactured by cvs2svn to create branch
'FREESIDE_2_1_BRANCH'.
Diffstat (limited to 'httemplate/elements/email-link.html')
| -rw-r--r-- | httemplate/elements/email-link.html | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/httemplate/elements/email-link.html b/httemplate/elements/email-link.html new file mode 100644 index 000000000..692e5bc2e --- /dev/null +++ b/httemplate/elements/email-link.html @@ -0,0 +1,16 @@ +% 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> + |