X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_svc.pm;fp=FS%2FFS%2Fcust_svc.pm;h=c06b302dff727629afe7b2a2a3aaf59f5340576a;hp=d91fa0d7ae43c4b23282bba051f801ad32d47243;hb=a472d8ff6bf5c87d7181c4a3f1757bae487a6ddf;hpb=028e089bd3219330418ce40ab07926a320584e7e

diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm
index d91fa0d7a..c06b302df 100644
--- a/FS/FS/cust_svc.pm
+++ b/FS/FS/cust_svc.pm
@@ -169,6 +169,17 @@ sub delete {
   local $FS::UID::AutoCommit = 0;
   my $dbh = dbh;
 
+  # delete associated export_cust_svc
+  foreach my $export_cust_svc (
+    qsearch('export_cust_svc',{ 'svcnum' => $self->svcnum })
+  ) {
+    my $error = $export_cust_svc->delete;
+    if ( $error ) {
+      $dbh->rollback if $oldAutoCommit;
+      return $error;
+    }
+  }
+
   my $error = $self->SUPER::delete;
   if ( $error ) {
     $dbh->rollback if $oldAutoCommit;