diff options
| -rw-r--r-- | FS/FS/cust_main.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 1da1f0ffd..3742bfdad 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -454,8 +454,10 @@ sub insert { warn " setting $l.custnum\n" if $DEBUG > 1; my $loc = $self->$l; - $loc->set(custnum => $self->custnum); - $error ||= $loc->replace; + unless ( $loc->custnum ) { + $loc->set(custnum => $self->custnum); + $error ||= $loc->replace; + } if ( $error ) { $dbh->rollback if $oldAutoCommit; |