httemplate/misc/email-quotation.html

   1 <& /elements/header-popup.html, mt('Select recipients') &>
   2
   3 <% include('/elements/error.html') %>
   4
   5 <FORM NAME="OneTrueForm" METHOD="POST" ACTION="process/email-quotation.html" onSubmit="document.OneTrueForm.submit.disabled=true; document.OneTrueForm.submit.style.display='none'; document.getElementById('emailingwait').style.display='';">
   6 <INPUT TYPE="hidden" NAME="quotationnum" VALUE="<% $quotationnum %>">
   7
   8 <% ntable("#cccccc", 2) %>
   9
  10 % my $emails = 0;
  11
  12 % if ( my $cust_main = $quotation->cust_main ) {
  13 %   foreach my $email ( $cust_main->invoicing_list_emailonly ) {
  14 %     $emails++;
  15       <& .emailrow, $email &>
  16 %   }
  17 % }
  18
  19 % my @X_contact = $quotation->custnum
  20 %                   ? $quotation->cust_main->cust_contact
  21 %                   : $quotation->prospect_main->prospect_contact;
  22 % foreach my $X_contact ( @X_contact ) {
  23 %    my $contact = $X_contact->contact;
  24 %    foreach my $contact_email ( $contact->contact_email ) {
  25 %      $emails++;
  26        <& .emailrow, $contact_email->emailaddress, $contact->firstlast &>
  27 %    }
  28 % }
  29
  30 <%def .emailrow>
  31 % my( $email, $name ) = @_;
  32 % if ( $name ) {
  33 %   $name = "$name <$email>";
  34 % } else {
  35 %   $name = $email;
  36 % }
  37   <TR>
  38     <TD><INPUT TYPE="checkbox" NAME="emailaddress" VALUE="<% $email |h %>"></TD>
  39     <TD><% $name |h %></TD>
  40   </TR>
  41 </%def>
  42
  43 </TABLE>
  44
  45 <BR>
  46
  47 <CENTER>
  48 % if ( $emails ) {
  49   <BUTTON TYPE="submit" NAME="submit" ID="submit">Email quotation</BUTTON>
  50   <DIV ID="emailingwait" STYLE="display:none">
  51     <IMG SRC="<%$p%>images/wait-orange.gif"> <B>Sending...</B>
  52   </DIV>
  53 % } else {
  54   <FONT SIZE="+1" COLOR="#ff0000"><% mt('Add a contact email address first') |h %></FONT>
  55 % }
  56 </CENTER>
  57
  58 </FORM>
  59
  60 <& /elements/footer-popup.html &>
  61 <%init>
  62
  63 #die "access denied"
  64 #  unless $FS::CurrentUser::CurrentUser->access_right('Generate quotation'); #separate rights to generate vs send/email?
  65
  66 $cgi->param('quotationnum') =~ /^(\d+)$/ or die "Illegal quotationnum";
  67 my $quotationnum = $1;
  68
  69 #XXX agent-virt
  70 my $quotation = qsearchs('quotation', { 'quotationnum'=>$quotationnum })
  71   or die "Unknown quotationnum";
  72
  73 </%init>