X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_credit.pm;h=77460e2e3fed16b498a934ef4c021b06e2906a6a;hb=c6ac0d4705ef01f2cca9340c7089bae1908cae27;hp=dfc4c80da3159d2f7be051be0b8ebc4d31db5fd7;hpb=c768181f5e2f4fd5ffcc02e504ce6fa6d73b3922;p=freeside.git

diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm
index dfc4c80da..77460e2e3 100644
--- a/FS/FS/cust_credit.pm
+++ b/FS/FS/cust_credit.pm
@@ -167,6 +167,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) {