+ foreach my $arecord ( keys %arecords ) {
+ my $arec = new FS::domain_record {
+ 'svcnum' => $self->svcnum,
+ 'reczone' => $arecord,
+ 'recaf' => 'IN',
+ 'rectype' => 'A',
+ 'recdata' => $arecords{$arecord},
+ };
+ my $error = $arec->insert;
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return "WARNING: couldn't insert A record for new domain: $error";
+ }
+ }
+
+ foreach my $cnamerecord ( keys %cnamerecords ) {
+ my $cnamerec = new FS::domain_record {
+ 'svcnum' => $self->svcnum,
+ 'reczone' => $cnamerecord,
+ 'recaf' => 'IN',
+ 'rectype' => 'CNAME',
+ 'recdata' => $cnamerecords{$cnamerecord},
+ };
+ my $error = $cnamerec->insert;
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return "WARNING: couldn't insert CNAME record for new domain: $error";
+ }
+ }
+