diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2012-08-06 17:00:55 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2012-08-06 17:00:55 -0700 |
| commit | f5a3626fdc2ff793648cebc86f96bf3eac08cc65 (patch) | |
| tree | ffce5c42da5f97f67e140f98b31268174533408a | |
| parent | 0d8eb2d4d4a372680d0fa564fbfcba0d6674b259 (diff) | |
eliminate warnings
| -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; |