From f94ef1d2324d55293ba9efeb3a6156a488bbd39f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 22 Oct 2001 12:22:03 +0000
Subject: [PATCH] fix delete method for new databases

---
 FS/FS/svc_domain.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm
index 58c6423c3..8b8c35957 100644
--- a/FS/FS/svc_domain.pm
+++ b/FS/FS/svc_domain.pm
@@ -279,7 +279,8 @@ sub delete {
     if qsearch( 'svc_acct', { 'domsvc' => $self->svcnum } );
 
   return "Can't delete a domain with (svc_acct_sm) mail aliases!"
-    if qsearch('svc_acct_sm', { 'domsvc' => $self->svcnum } );
+    if defined( $FS::Record::dbdef->table('svc_acct_sm') )
+       && qsearch('svc_acct_sm', { 'domsvc' => $self->svcnum } );
 
   return "Can't delete a domain with (domain_record) zone entries!"
     if qsearch('domain_record', { 'svcnum' => $self->svcnum } );
@@ -533,7 +534,7 @@ sub submit_internic {
 
 =head1 VERSION
 
-$Id: svc_domain.pm,v 1.20 2001-09-06 20:41:59 ivan Exp $
+$Id: svc_domain.pm,v 1.21 2001-10-22 12:22:03 ivan Exp $
 
 =head1 BUGS
 
-- 
2.11.0