diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2014-05-13 12:35:08 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2014-05-13 12:35:08 -0700 |
| commit | 9acc16fbf3b990f4d98d2dc31b46a0e486e73f4a (patch) | |
| tree | 1e1ec5459a268bd2d3808f2eb77f128c180daa0c | |
| parent | f2e9af8087362231b37e878ed3ef06cf6bbe3fd3 (diff) | |
remove deleted contacts from packages, RT#28949
| -rw-r--r-- | FS/FS/contact.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/FS/FS/contact.pm b/FS/FS/contact.pm index d0dd8b773..9ce73e1dd 100644 --- a/FS/FS/contact.pm +++ b/FS/FS/contact.pm @@ -207,6 +207,15 @@ sub delete { local $FS::UID::AutoCommit = 0; my $dbh = dbh; + foreach my $cust_pkg ( $self->cust_pkg ) { + $cust_pkg->contactnum(''); + my $error = $cust_pkg->replace; + if ( $error ) { + $dbh->rollback if $oldAutoCommit; + return $error; + } + } + foreach my $object ( $self->contact_phone, $self->contact_email ) { my $error = $object->delete; if ( $error ) { |