add service replacement script, RT#40031

diff --git a/bin/svc.replace b/bin/svc.replace
index 1d2513a..ad9cc43 100644 (file)
--- a/bin/svc.replace
+++ b/bin/svc.replace
@@ -12,6 +12,7 @@ my $svcpart = shift or die &usage;
 
 foreach my $cust_svc ( qsearch('cust_svc', { 'svcpart'=>$svcpart } ) ) {
   my $svc_x = $cust_svc->svc_x;
+  $svc_x->setfixed;
   my $error = $svc_x->replace;
   warn "$error\n" if $error
 }