httemplate/misc/email-customers.html

   1 <% include('/elements/header.html', $title) %>
   2
   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)) %>">
  10
  11 % if ( $cgi->param('action') eq 'send' ) {
  12
  13     <FONT SIZE="+2">Sending notice</FONT>
  14
  15     <% include('/elements/progress-init.html',
  16                  'OneTrueForm',
  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..
  20               )
  21     %>
  22
  23 % } elsif ( $cgi->param('action') eq 'preview' ) {
  24
  25     <FONT SIZE="+2">Preview notice</FONT>
  26
  27 % }
  28
  29 % if ( $cgi->param('action') ) {
  30
  31     <TABLE BGCOLOR="#cccccc" CELLSPACING=0>
  32     <INPUT TYPE="hidden" NAME="msgnum" VALUE="<% $cgi->param('msgnum') %>">
  33
  34 %   if ( $msg_template ) {
  35       <% include('/elements/tr-fixed.html',
  36                    'label'      => 'Template:',
  37                    'value'      => $msg_template->msgname,
  38                 )
  39       %>
  40 % }
  41
  42       <% include('/elements/tr-fixed.html',
  43                    'field'      => 'from',
  44                    'label'      => 'From:',
  45                    'value' => scalar( $from ),
  46                 )
  47       %>
  48
  49       <% include('/elements/tr-fixed.html',
  50                    'field'      => 'subject',
  51                    'label'      => 'Subject:',
  52                    'value' => scalar( $subject ),
  53                 )
  54       %>
  55
  56       <INPUT TYPE="hidden" NAME="html_body" VALUE="<% $html_body |h %>">
  57       <TR>
  58         <TD ALIGN="right" VALIGN="top">Message (HTML display): </TD>
  59         <TD CLASS="background" ALIGN="left"><% $html_body %></TD>
  60       </TR>
  61
  62 %     my $text_body = HTML::FormatText->new(leftmargin=>0)->format(
  63 %                       HTML::TreeBuilder->new_from_content(
  64 %                         $html_body
  65 %                       )
  66 %                     );
  67       <INPUT TYPE="hidden" NAME="text_body" VALUE="<% $text_body |h %>">
  68       <TR>
  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>
  71       </TR>
  72
  73     </TABLE>
  74
  75 % if ( $cgi->param('action') eq 'preview' ) {
  76
  77       <SCRIPT>
  78         function areyousure(href) {
  79           return confirm("Send this notice to <% ($num_cust > 1) ? "$num_cust customers" : '1 customer' %> ?");
  80         }
  81       </SCRIPT>
  82
  83       <BR>
  84       <INPUT TYPE="hidden" NAME="action" VALUE="send">
  85       <INPUT TYPE="submit" VALUE="Send notice" onClick="return areyousure()">
  86
  87 %   }
  88
  89 % } else {
  90
  91 <SCRIPT TYPE="text/javascript">
  92 function toggle(obj) {
  93   document.getElementById('table_no_template').style.display = (obj.value == 0) ? '' : 'none';
  94 }
  95
  96 </SCRIPT>
  97 Template:
  98     <& /elements/select-msg_template.html,
  99          onchange => 'toggle(this)',
 100     &>
 101     <BR>
 102   <TABLE BGCOLOR="#cccccc" CELLSPACING=0 WIDTH="100%" id="table_no_template">
 103     <& /elements/tr-td-label.html, 'label' => 'From:' &>
 104       <TD><& /elements/input-text.html,
 105               'field' => 'from_name',
 106               'value' => $conf->config('company_name'), #?
 107               'size'  => 20,
 108           &>&nbsp;&lt;\
 109           <& /elements/input-text.html,
 110               'field' => 'from_addr',
 111               'type'  => 'email', # HTML5, woot
 112               'value' => $conf->config('invoice_from'),
 113               'size'  => 20,
 114           &>&gt;</TD>
 115
 116     <% include('/elements/tr-input-text.html',
 117                  'field' => 'subject',
 118                  'label' => 'Subject:',
 119                  'size'  => 50,
 120               )
 121     %>
 122
 123     <TR>
 124       <TD ALIGN="right" VALIGN="top" STYLE="padding-top:3px">Message: </TD>
 125       <TD><& /elements/htmlarea.html,
 126                'field' => 'html_body',
 127                'width' => 763,
 128           &>
 129       </TD>
 130     </TR>
 131
 132   </TABLE>
 133
 134 %#Substitution vars:
 135
 136     <INPUT TYPE="hidden" NAME="action" VALUE="preview">
 137     <INPUT TYPE="submit" VALUE="Preview notice">
 138
 139 % }
 140
 141 </FORM>
 142
 143 % if ( $cgi->param('action') eq 'send' ) {
 144     <SCRIPT TYPE="text/javascript">
 145       process();
 146     </SCRIPT>
 147 % }
 148
 149 <% include('/elements/footer.html') %>
 150
 151 <%init>
 152
 153 die "access denied"
 154   unless $FS::CurrentUser::CurrentUser->access_right('Bulk send customer notices');
 155
 156 my $conf = FS::Conf->new;
 157 my $table = $cgi->param('table') or die "'table' required";
 158 my %search;
 159 if ( $cgi->param('search') ) {
 160   %search = %{ thaw(decode_base64($cgi->param('search'))) };
 161 }
 162 else {
 163   %search = $cgi->Vars;
 164   delete $search{$_} for qw( action table from subject html_body text_body );
 165   # FS::$table->search is expected to know which parameters might be
 166   # multi-valued, and to accept scalar values for them also.  No good
 167   # solution to this since CGI can't tell whether a parameter _might_
 168   # have had multiple values, only whether it does.
 169   @search{keys %search} = map { /\0/ ? [ split /\0/, $_ ] : $_ } values %search;
 170 }
 171
 172 my $title = 'Send customer notices';
 173
 174 my $num_cust;
 175 my $from = '';
 176 if ( $cgi->param('from') ) {
 177   $from = $cgi->param('from');
 178 } elsif ( $cgi->param('from_name') ) {
 179   $from = ($cgi->param('from_name') . ' <' . $cgi->param('from_addr') . '>');
 180 } elsif ( $cgi->param('from_addr') ) {
 181   $from = $cgi->param('from_addr');
 182 }
 183
 184 my $subject = $cgi->param('subject') || '';
 185 my $html_body = $cgi->param('html_body') || '';
 186
 187 my $msg_template = '';
 188
 189 if ( $cgi->param('action') eq 'preview' ) {
 190   my $sql_query = "FS::$table"->search(\%search);
 191   my $count_query = delete($sql_query->{'count_query'});
 192   my $count_sth = dbh->prepare($count_query)
 193     or die "Error preparing $count_query: ". dbh->errstr;
 194   $count_sth->execute
 195     or die "Error executing $count_query: ". $count_sth->errstr;
 196   my $count_arrayref = $count_sth->fetchrow_arrayref;
 197   $num_cust = $count_arrayref->[0];
 198
 199   if ( $cgi->param('msgnum') ) {
 200     $msg_template = qsearchs('msg_template',
 201                              { msgnum => $cgi->param('msgnum') } )
 202         or die "template not found: ".$cgi->param('msgnum');
 203     $sql_query->{'extra_sql'} .= ' LIMIT 1';
 204     $sql_query->{'select'} = "$table.*";
 205     $sql_query->{'order_by'} = '';
 206     my $object = qsearchs($sql_query);
 207     my $cust = $object->cust_main;
 208     my %message = $msg_template->prepare(
 209       'cust_main' => $cust,
 210       'object' => $object
 211     );
 212     ($from, $subject, $html_body) = @message{'from', 'subject', 'html_body'};
 213   }
 214 }
 215
 216 </%init>