summaryrefslogtreecommitdiff
path: root/httemplate/misc/process
diff options
context:
space:
mode:
authorivan <ivan>2009-10-05 02:16:46 +0000
committerivan <ivan>2009-10-05 02:16:46 +0000
commit0c2679eee18b3b073bc91657fcf85c5dd2e5efc0 (patch)
treeb782f6f3ddbf36c549a88a77f2cda7359f1c456c /httemplate/misc/process
parent4c951501b14bf459fa039db9ef093cfea9e37db3 (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.cgi13
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;