diff options
| author | ivan <ivan> | 2001-10-22 12:22:03 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-10-22 12:22:03 +0000 |
| commit | f94ef1d2324d55293ba9efeb3a6156a488bbd39f (patch) | |
| tree | c1e093827a3443d626be68f679273d868f1cc58b /FS/FS/svc_domain.pm | |
| parent | 813696972eaf418cb94abca6aa2d4bfc4c67829a (diff) | |
fix delete method for new databases
Diffstat (limited to 'FS/FS/svc_domain.pm')
| -rw-r--r-- | FS/FS/svc_domain.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm index 58c6423..8b8c359 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 |