RT# 81608 Improved error msg for Bill Now

Update Bill Now to throw an appropriate error
message to user if they try to use Bill Now
on a customer with pending package expiration

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index fb4b153..cc0e83f 100644 (file)
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -5429,7 +5429,13 @@ sub process_bill_and_collect {
   $param->{'fatal'} = 1; # runs from job queue, will be caught
   $param->{'retry'} = 1;
 
   $param->{'fatal'} = 1; # runs from job queue, will be caught
   $param->{'retry'} = 1;
 

-  $cust_main->bill_and_collect( %$param );
+  local $@;
+  eval { $cust_main->bill_and_collect( %$param) };
+  if ( $@ ) {
+    die $@ =~ /cancel_pkgs cannot be run inside a transaction/
+      ? "Bill Now unavailable for customer with pending package expiration\n"
+      : $@;
+  }

 }
 
 =item pending_invoice_count
 }
 
 =item pending_invoice_count