use vars qw( @ISA $whois_hack $conf $smtpmachine
$tech_contact $from $to @nameservers @nameserver_ips @template
@mxmachines @nsmachines $soadefaultttl $soaemail $soaexpire $soamachine
- $soarefresh $soaretry
+ $soarefresh $soaretry $qshellmachine $nossh_hack
);
use Carp;
use Mail::Internet;
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 } );
my $x = $self->setfixed;
return $x unless ref($x);
- my $part_svc = $x;
+ #my $part_svc = $x;
- my $error = $self->ut_numbern('catchall');
+ my $error = $self->ut_numbern('svcnum')
+ || $self->ut_numbern('catchall')
+ ;
return $error if $error;
#hmm
=head1 VERSION
-$Id: svc_domain.pm,v 1.16 2001-08-20 09:41:52 ivan Exp $
+$Id: svc_domain.pm,v 1.21 2001-10-22 12:22:03 ivan Exp $
=head1 BUGS