19 digit visa and discover cards
[freeside.git] / 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>