+ if ( $part_svc->svc_acct__domsvc_flag eq 'D' ) {
+ my $svc_domain =
+ qsearchs('svc_domain', { 'svcnum' => $part_svc->svc_acct__domsvc } );
+ if ( $svc_domain ) {
+ push @svc_domain, $svc_domain;
+ } else {
+ warn "unknown svc_domain.svcnum for part_svc.svc_acct__domsvc: ".
+ $part_svc->svc_acct__domsvc;
+ }
+ }