From 1b2fb3324740555200590d8f75e339e44acf447a Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 14 Oct 2002 09:28:14 +0000
Subject: [PATCH] close invoices which are declined.  closes: Bug#408

---
 fs_signup/fs_signup_server | 6 ++++++
 1 file changed, 6 insertions(+)

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