'. $domain_record->reczone. ' | '.
- ''. $domain_record->recaf. ' '. $domain_record->rectype. ' | '.
- ''. $domain_record->recdata;
- print qq! (delete)!
- unless $domain_record->rectype eq 'SOA';
- print ' |
';
+my $status = 'Unknown';
+my %ops = ();
+
+my @exports = $part_svc->part_export();
+
+my $registrar;
+my $export;
+
+# Find the first export that does domain registration
+foreach (@exports) {
+ $export = $_ if $_->can('registrar');
}
-print '