summaryrefslogtreecommitdiff
path: root/httemplate/misc/email-invoice.cgi
diff options
context:
space:
mode:
authorivan <ivan>2005-05-19 08:43:27 +0000
committerivan <ivan>2005-05-19 08:43:27 +0000
commitc28a4c33a88dfa354436f81a2e213638088adcf1 (patch)
tree597383762045368e63c48f625ad3daa64c40f927 /httemplate/misc/email-invoice.cgi
parentf96998102b9bdf8e730b6b55a0aa2b62afffb545 (diff)
re-email/fax/print links should respect template, also add direct re-send links like the view links and convert view/cust_bill.cgi to proper template
Diffstat (limited to 'httemplate/misc/email-invoice.cgi')
-rwxr-xr-xhttemplate/misc/email-invoice.cgi9
1 files changed, 6 insertions, 3 deletions
diff --git a/httemplate/misc/email-invoice.cgi b/httemplate/misc/email-invoice.cgi
index a3130c79f..34afa9084 100755
--- a/httemplate/misc/email-invoice.cgi
+++ b/httemplate/misc/email-invoice.cgi
@@ -4,14 +4,17 @@ my $conf = new FS::Conf;
#untaint invnum
my($query) = $cgi->keywords;
-$query =~ /^(\d*)$/;
-my $invnum = $1;
+$query =~ /^((.+)-)?(\d+)$/;
+my $template = $2;
+my $invnum = $3;
my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum});
die "Can't find invoice!\n" unless $cust_bill;
my $error = send_email(
$cust_bill->generate_email(
- 'from' => $cust_bill->_agent_invoice_from || $conf->config('invoice_from'),
+ 'from' =>
+ ( $cust_bill->_agent_invoice_from || $conf->config('invoice_from') ),
+ 'template' => $template,
)
);
eidiot($error) if $error;