From a6fdc051a4920122c2302191be4855cfa7440e80 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 31 May 2017 17:55:22 -0700
Subject: [PATCH] better error importing credits with unknown customer numbers,
RT#76184
---
FS/FS/cust_credit.pm | 4 ++++
1 file changed, 4 insertions(+)
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) {
--
2.20.1