my $type = shift;
-my( $invnum, $mode, $template, $notice_name );
+my( $invnum, $mode, $template, $notice_name, $no_coupon );
my($query) = $cgi->keywords;
if ( $query =~ /^((.+)-)?(\d+)(.pdf)?$/ ) { #probably not necessary anymore?
$template = $2;
$template = $cgi->param('template');
$notice_name = $cgi->param('notice_name');
$mode = $cgi->param('mode');
+ $no_coupon = $cgi->param('no_coupon');
}
my $conf = new FS::Conf;
'unsquelch_cdr' => $conf->exists('voip-cdr_email'),
'template' => $template,
'notice_name' => $notice_name,
+ 'no_coupon' => $no_coupon,
);
my $cust_bill = qsearchs({