X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fsvc_domain.pm;h=fd57713c8bc1c037f7d33219415b4e49f427fdaa;hp=a9a2fd0ebbd540bf955ee1efdc3c72a58bc6dd0c;hb=cf4a05afd3aea5747e16e8dcb426f9552aaef444;hpb=269525075ed77bfcd0a26eda9c7244e816aba92d

diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm
index a9a2fd0eb..fd57713c8 100644
--- a/FS/FS/svc_domain.pm
+++ b/FS/FS/svc_domain.pm
@@ -282,6 +282,7 @@ sub delete {
       return $error;
     }
   }
+  $dbh->commit or die $dbh->errstr if $oldAutoCommit;
 }
 
 =item replace OLD_RECORD
@@ -298,8 +299,8 @@ sub replace {
   return "Can't change domain - reorder."
     if $old->getfield('domain') ne $new->getfield('domain'); 
 
-  $new->SUPER::replace($old);
-
+  my $error = $new->SUPER::replace($old);
+  return $error if $error;
 }
 
 =item suspend
@@ -450,7 +451,7 @@ sub submit_internic {
 
 =head1 VERSION
 
-$Id: svc_domain.pm,v 1.29 2002-05-22 18:44:01 ivan Exp $
+$Id: svc_domain.pm,v 1.30 2002-05-31 00:18:57 khoff Exp $
 
 =head1 BUGS