diff options
author | khoff <khoff> | 2002-05-31 00:18:57 +0000 |
---|---|---|
committer | khoff <khoff> | 2002-05-31 00:18:57 +0000 |
commit | cf4a05afd3aea5747e16e8dcb426f9552aaef444 (patch) | |
tree | ac9a6745e2935e52958ccf892d652ce7be8f7a6e /FS/FS/svc_domain.pm | |
parent | 269525075ed77bfcd0a26eda9c7244e816aba92d (diff) |
Moved new-style export calls to svc_Common.
Diffstat (limited to 'FS/FS/svc_domain.pm')
-rw-r--r-- | FS/FS/svc_domain.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm index a9a2fd0..fd57713 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 |