#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 = &FS::Misc::send_fax(
dialstring => $cust_bill->cust_main->getfield('fax'),
- docdata => [ $cust_bill->print_ps ],
+ docdata => [ $cust_bill->print_ps('', $template) ],
);
die $error if $error;