diff options
| author | ivan <ivan> | 2001-09-14 19:54:22 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-09-14 19:54:22 +0000 |
| commit | 5477d23b51bd3135893c4d79091a9e272a17f4f8 (patch) | |
| tree | e9cd777bffdefc8dbabebf5f4055a5f04fbbdcdd | |
| parent | 9801653f4368761e7110c9c80cc37e7f1004302f (diff) | |
fix for no svc_acct_sm!!!
| -rw-r--r-- | FS/FS/svc_acct.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 74a5f311a..e52cebf15 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -367,8 +367,10 @@ $username and $dir. sub delete { my $self = shift; - return "Can't delete an account which has (svc_acct_sm) mail aliases!" - if $self->uid && qsearch( 'svc_acct_sm', { 'domuid' => $self->uid } ); + if ( defined( $FS::Record::dbdef->table('svc_acct_sm') ) ) { + return "Can't delete an account which has (svc_acct_sm) mail aliases!" + if $self->uid && qsearch( 'svc_acct_sm', { 'domuid' => $self->uid } ); + } return "Can't delete an account which is a (svc_forward) source!" if qsearch( 'svc_forward', { 'srcsvc' => $self->svcnum } ); @@ -839,7 +841,7 @@ sub email { =head1 VERSION -$Id: svc_acct.pm,v 1.38 2001-09-11 13:10:22 ivan Exp $ +$Id: svc_acct.pm,v 1.39 2001-09-14 19:54:22 ivan Exp $ =head1 BUGS |