httemplate/misc/process/email-quotation.html

   1 <& /elements/header-popup.html, mt('Email sent') &>
   2 <SCRIPT TYPE="text/javascript">
   3   setTimeout("parent.cClick()", 3000);
   4 </SCRIPT>
   5 <& /elements/footer-popup.html &>
   6 <%init>
   7
   8 #die "access denied"
   9 #  unless $FS::CurrentUser::CurrentUser->access_right('Generate quotation'); #separate rights to generate vs send/email?
  10
  11 $cgi->param('quotationnum') =~ /^(\d+)$/ or die "Illegal quotationnum";
  12 my $quotationnum = $1;
  13
  14 #XXX agent-virt
  15 my $quotation = qsearchs('quotation', { 'quotationnum'=>$quotationnum })
  16   or die "Unknown quotationnum";
  17
  18 $quotation->email({ 'to' => [ $cgi->param('emailaddress') ] });
  19
  20 </%init>