X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fsvc_domain.pm;h=4dd6342c7b754bd97cb125d3e6499cb0d1560dcb;hb=8ed2714fc50607081d7ac4edf0b17e23902dabba;hp=c88b3e6683171d45f7310f901b6b4fe29c8b8502;hpb=c65b166b6e2ebdac5c2eb2e8336ebd1a4087f77c;p=freeside.git

diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm
index c88b3e668..4dd6342c7 100644
--- a/FS/FS/svc_domain.pm
+++ b/FS/FS/svc_domain.pm
@@ -256,6 +256,8 @@ sub replace {
   return "Can't change domain - reorder."
     if $old->getfield('domain') ne $new->getfield('domain'); 
 
+  # Better to do it here than to force the caller to remember that svc_domain is weird.
+  $new->setfield(action => 'M');
   my $error = $new->SUPER::replace($old);
   return $error if $error;
 }