X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fnas.pm;fp=FS%2FFS%2Fnas.pm;h=af5a23a24d470fd2c176d0b025ff9d04fca1717d;hp=4564a634206c0083c8a7cd51c7dbcf6a8c0a64c2;hb=307a7d85568a15f5eb0d97c648507484108fcc56;hpb=cfbfa38f73888ee2c073ad7500c1fe147cde1c81

diff --git a/FS/FS/nas.pm b/FS/FS/nas.pm
index 4564a6342..af5a23a24 100644
--- a/FS/FS/nas.pm
+++ b/FS/FS/nas.pm
@@ -87,8 +87,11 @@ sub delete {
   my $dbh = dbh;
 
   my $self = shift;
-  my $error = $self->process_m2m([])
-           || $self->SUPER::delete;
+  my $error = $self->process_m2m(
+    link_table    => 'export_nas',
+    target_table  => 'part_export',
+    params        => []
+  ) || $self->SUPER::delete;
 
   if ( $error ) {
     $dbh->rollback;