summaryrefslogtreecommitdiff
path: root/fs_signup
diff options
context:
space:
mode:
Diffstat (limited to 'fs_signup')
-rwxr-xr-xfs_signup/fs_signup_server6
1 files changed, 6 insertions, 0 deletions
diff --git a/fs_signup/fs_signup_server b/fs_signup/fs_signup_server
index 7f962e057..703c76ec7 100755
--- a/fs_signup/fs_signup_server
+++ b/fs_signup/fs_signup_server
@@ -188,9 +188,15 @@ while (1) {
if $bill_error;
if ( $cust_main->balance > 0 ) {
+
+ #this makes sense. credit is "un-doing" the invoice
+ $cust_main->credit( $cust_main->balance, 'signup server decline' );
+ $cust_main->apply_credits;
+
#should check list for errors...
#$cust_main->suspend;
$cust_main->cancel;
+
$error = '_decline';
}
}