From: ivan <ivan>
Date: Mon, 14 Oct 2002 09:28:14 +0000 (+0000)
Subject: close invoices which are declined.  closes: Bug#408
X-Git-Tag: freeside_1_5_0pre1~179
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=1b2fb3324740555200590d8f75e339e44acf447a;hp=196f70d25dc9dda5c765ab534734c307644dee0c

close invoices which are declined.  closes: Bug#408
---

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';
       }
     }