diff options
author | ivan <ivan> | 2009-10-05 02:16:46 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-10-05 02:16:46 +0000 |
commit | 0c2679eee18b3b073bc91657fcf85c5dd2e5efc0 (patch) | |
tree | b782f6f3ddbf36c549a88a77f2cda7359f1c456c /httemplate/misc/process | |
parent | 4c951501b14bf459fa039db9ef093cfea9e37db3 (diff) |
add manual_process-display config to subtract fee from amount instead of adding, RT#5889
Diffstat (limited to 'httemplate/misc/process')
-rw-r--r-- | httemplate/misc/process/payment.cgi | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/httemplate/misc/process/payment.cgi b/httemplate/misc/process/payment.cgi index d41bc0f14..1e9501df8 100644 --- a/httemplate/misc/process/payment.cgi +++ b/httemplate/misc/process/payment.cgi @@ -150,11 +150,18 @@ if ( $cgi->param('batch') ) { #no error, so order the fee package if applicable... if ( $cgi->param('fee_pkgpart') =~ /^(\d+)$/ ) { - my $error = $cust_main->order_pkg( - 'cust_pkg' => new FS::cust_pkg { 'pkgpart' => $1 } - ); + + my $cust_pkg = new FS::cust_pkg { 'pkgpart' => $1 }; + + my $error = $cust_main->order_pkg( 'cust_pkg' => $cust_pkg ); errorpage("payment processed successfully, but error ordering fee: $error") if $error; + + #and generate an invoice for it now too + $error = $cust_main->bill( 'pkg_list' => [ $cust_pkg ] ); + errorpage("payment processed and fee ordered sucessfully, but error billing fee: $error") + if $error; + } $cust_main->apply_payments; |