X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fsvc_domain.pm;h=97c5b3147cf9d35b90c43ca57226f3504dbae1eb;hp=d01a403d1975258a9b6b734efa31814e79d5e459;hb=91249e69d7126b456ba444686ab9f7485c121534;hpb=0c5d2706f6e199b309a130bd24ffdf4f3cea3834

diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm
index d01a403d1..97c5b3147 100644
--- a/FS/FS/svc_domain.pm
+++ b/FS/FS/svc_domain.pm
@@ -193,14 +193,14 @@ sub insert {
 
     foreach my $record ( @defaultrecords ) {
       my($zone,$af,$type,$data) = split(/\s+/,$record,4);
-      my $record = new FS::domain_record {
+      my $domain_record = new FS::domain_record {
         'svcnum'  => $self->svcnum,
         'reczone' => $zone,
         'recaf'   => $af,
         'rectype' => $type,
         'recdata' => $data,
       };
-      my $error = $record->insert;
+      my $error = $domain_record->insert;
       if ( $error ) {
         $dbh->rollback if $oldAutoCommit;
         return "couldn't insert record for new domain: $error";
@@ -407,7 +407,7 @@ sub submit_internic {
 
 =head1 VERSION
 
-$Id: svc_domain.pm,v 1.26 2002-03-18 09:10:12 ivan Exp $
+$Id: svc_domain.pm,v 1.27 2002-05-10 07:45:29 ivan Exp $
 
 =head1 BUGS