From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 1 Jun 2017 00:55:22 +0000 (-0700)
Subject: better error importing credits with unknown customer numbers, RT#76184
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a6fdc051a4920122c2302191be4855cfa7440e80

better error importing credits with unknown customer numbers, RT#76184
---

diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm
index ca410757b..f8c13f9f0 100644
--- a/FS/FS/cust_credit.pm
+++ b/FS/FS/cust_credit.pm
@@ -154,6 +154,10 @@ sub insert {
   my $dbh = dbh;
 
   my $cust_main = qsearchs( 'cust_main', { 'custnum' => $self->custnum } );
+  unless ( $cust_main ) {
+    $dbh->rollback if $oldAutoCommit;
+    return "Unknown custnum ". $self->custnum;
+  }
   my $old_balance = $cust_main->balance;
 
   if (!$self->reasonnum) {