1 <& /elements/header-popup.html, mt('Select recipients') &>
3 <% include('/elements/error.html') %>
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 %>">
8 <% ntable("#cccccc", 2) %>
12 % if ( my $cust_main = $quotation->cust_main ) {
13 % foreach my $email ( $cust_main->invoicing_list_emailonly ) {
15 <& .emailrow, $email &>
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 ) {
26 <& .emailrow, $contact_email->emailaddress, $contact->firstlast &>
31 % my( $email, $name ) = @_;
33 % $name = "$name <$email>";
38 <TD><INPUT TYPE="checkbox" NAME="emailaddress" VALUE="<% $email |h %>"></TD>
39 <TD><% $name |h %></TD>
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>
54 <FONT SIZE="+1" COLOR="#ff0000"><% mt('Add a contact email address first') |h %></FONT>
60 <& /elements/footer-popup.html &>
64 # unless $FS::CurrentUser::CurrentUser->access_right('Generate quotation'); #separate rights to generate vs send/email?
66 $cgi->param('quotationnum') =~ /^(\d+)$/ or die "Illegal quotationnum";
67 my $quotationnum = $1;
70 my $quotation = qsearchs('quotation', { 'quotationnum'=>$quotationnum })
71 or die "Unknown quotationnum";