- my %svc_domain = ( 'svcpart' => $domain_svcpart,
- 'domain' => $domain, );
- my $svc_domain = qsearchs('svc_domain', \%svc_domain )
- || new FS::svc_domain \%svc_domain;
- unless ( $svc_domain->domsvc ) {
+ my $svc_domain = qsearchs('svc_domain', { 'domain' => $domain } )
+ || new FS::svc_domain {
+ 'domain' => $domain,
+ 'svcpart' => $domain_svcpart,
+ 'action' => 'N',
+ };
+ unless ( $svc_domain->svcnum ) {