1 <% include('/elements/header.html', $title) %>
3 <FORM NAME="OneTrueForm" ACTION="email-customers.html" METHOD="POST">
4 <INPUT TYPE="hidden" NAME="table" VALUE="<% $table %>">
5 %# Mixing search params with from address, subject, etc. required special-case
6 %# handling of those, risked name conflicts, and caused massive problems with
7 %# multi-valued search params. We are no longer in search context, so we
8 %# pack the search into a Storable string for later use.
9 <INPUT TYPE="hidden" NAME="search" VALUE="<% encode_base64(nfreeze(\%search)) %>">
11 % if ( $cgi->param('action') eq 'send' ) {
13 <FONT SIZE="+2">Sending notice</FONT>
15 <% include('/elements/progress-init.html',
17 [ qw( search table from subject html_body text_body msgnum ) ],
18 'process/email-customers.html',
19 { 'message' => "Notice sent" }, #would be nice to show #, but..
23 % } elsif ( $cgi->param('action') eq 'preview' ) {
25 <FONT SIZE="+2">Preview notice</FONT>
29 % if ( $cgi->param('action') ) {
31 <TABLE BGCOLOR="#cccccc" CELLSPACING=0>
32 <INPUT TYPE="hidden" NAME="msgnum" VALUE="<% $cgi->param('msgnum') %>">
34 % if ( $msg_template ) {
35 <% include('/elements/tr-fixed.html',
36 'label' => 'Template:',
37 'value' => $msg_template->msgname,
42 <% include('/elements/tr-fixed.html',
45 'value' => scalar( $from ),
49 <% include('/elements/tr-fixed.html',
51 'label' => 'Subject:',
52 'value' => scalar( $subject ),
56 <INPUT TYPE="hidden" NAME="html_body" VALUE="<% $html_body |h %>">
58 <TD ALIGN="right" VALIGN="top">Message (HTML display): </TD>
59 <TD CLASS="background" ALIGN="left"><% $html_body %></TD>
62 % my $text_body = HTML::FormatText->new(leftmargin=>0)->format(
63 % HTML::TreeBuilder->new_from_content(
67 <INPUT TYPE="hidden" NAME="text_body" VALUE="<% $text_body |h %>">
69 <TD ALIGN="right" VALIGN="top">Message (Text display): </TD>
70 <TD CLASS="background" STYLE="background-color:white" ALIGN="left"><PRE><% $text_body %></PRE></TD>
75 % if ( $cgi->param('action') eq 'preview' ) {
78 function areyousure(href) {
79 return confirm("Send this notice to <% ($num_cust > 1) ? "$num_cust customers" : '1 customer' %> ?");
84 <INPUT TYPE="hidden" NAME="action" VALUE="send">
85 <INPUT TYPE="submit" VALUE="Send notice" onClick="return areyousure()">
91 <SCRIPT TYPE="text/javascript">
92 function toggle(obj) {
93 document.getElementById('table_no_template').style.display = (obj.value == 0) ? '' : 'none';
98 <% include('/elements/select-table.html',
99 'label' => 'Template:',
100 'table' => 'msg_template',
101 'name_col' => 'msgname',
102 'empty_label' => '(none)',
103 'onchange' => 'toggle(this)',
106 <TABLE BGCOLOR="#cccccc" CELLSPACING=0 WIDTH="100%" id="table_no_template">
107 <% include('/elements/tr-input-text.html',
114 <% include('/elements/tr-input-text.html',
115 'field' => 'subject',
116 'label' => 'Subject:',
122 <TD ALIGN="right" VALIGN="top" STYLE="padding-top:3px">Message: </TD>
123 <TD><& '/elements/htmlarea.html',
124 'field' => 'html_body',
125 'width' => 600 &></TD>
132 <INPUT TYPE="hidden" NAME="action" VALUE="preview">
133 <INPUT TYPE="submit" VALUE="Preview notice">
139 % if ( $cgi->param('action') eq 'send' ) {
140 <SCRIPT TYPE="text/javascript">
145 <% include('/elements/footer.html') %>
150 unless $FS::CurrentUser::CurrentUser->access_right('Bulk send customer notices');
152 my $table = $cgi->param('table') or die "'table' required";
154 if ( $cgi->param('search') ) {
155 %search = %{ thaw(decode_base64($cgi->param('search'))) };
158 %search = $cgi->Vars;
159 delete $search{$_} for qw( action table from subject html_body text_body );
160 # FS::$table->search is expected to know which parameters might be
161 # multi-valued, and to accept scalar values for them also. No good
162 # solution to this since CGI can't tell whether a parameter _might_
163 # have had multiple values, only whether it does.
164 @search{keys %search} = map { /\0/ ? [ split /\0/, $_ ] : $_ } values %search;
167 my $title = 'Send customer notices';
170 my $from = $cgi->param('from') || '';
171 my $subject = $cgi->param('subject') || '';
172 my $html_body = $cgi->param('html_body') || '';
174 my $msg_template = '';
176 if ( $cgi->param('action') eq 'preview' ) {
177 my $sql_query = "FS::$table"->search(\%search);
178 my $count_query = delete($sql_query->{'count_query'});
179 my $count_sth = dbh->prepare($count_query)
180 or die "Error preparing $count_query: ". dbh->errstr;
182 or die "Error executing $count_query: ". $count_sth->errstr;
183 my $count_arrayref = $count_sth->fetchrow_arrayref;
184 $num_cust = $count_arrayref->[0];
186 if ( $cgi->param('msgnum') ) {
187 $msg_template = qsearchs('msg_template',
188 { msgnum => $cgi->param('msgnum') } )
189 or die "template not found: ".$cgi->param('msgnum');
190 $sql_query->{'extra_sql'} .= ' LIMIT 1';
191 $sql_query->{'select'} = "$table.*";
192 $sql_query->{'order_by'} = '';
193 my $object = qsearchs($sql_query);
194 my $cust = $object->cust_main;
195 my %message = $msg_template->prepare(
196 'cust_main' => $cust,
199 ($from, $subject, $html_body) = @message{'from', 'subject', 'html_body'};