<& /elements/header-popup.html, mt('Select recipients') &> <% include('/elements/error.html') %>
<% ntable("#cccccc", 2) %> % my $emails = 0; % if ( my $cust_main = $quotation->cust_main ) { % foreach my $email ( $cust_main->invoicing_list_emailonly ) { % $emails++; <& .emailrow, $email &> % } % } % my @X_contact = $quotation->custnum % ? $quotation->cust_main->cust_contact % : $quotation->prospect_main->prospect_contact; % foreach my $X_contact ( @X_contact ) { % my $contact = $X_contact->contact; % foreach my $contact_email ( $contact->contact_email ) { % $emails++; <& .emailrow, $contact_email->emailaddress, $contact->firstlast &> % } % } <%def .emailrow> % my( $email, $name ) = @_; % if ( $name ) { % $name = "$name <$email>"; % } else { % $name = $email; % } <% $name |h %>
% if ( $emails ) { % } else { <% mt('Add a contact email address first') |h %> % }
<& /elements/footer-popup.html &> <%init> #die "access denied" # unless $FS::CurrentUser::CurrentUser->access_right('Generate quotation'); #separate rights to generate vs send/email? $cgi->param('quotationnum') =~ /^(\d+)$/ or die "Illegal quotationnum"; my $quotationnum = $1; #XXX agent-virt my $quotation = qsearchs('quotation', { 'quotationnum'=>$quotationnum }) or die "Unknown quotationnum";