diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2016-02-02 15:16:22 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2016-02-02 15:16:22 -0800 |
| commit | 74f252e841ae742b7defe1042e8e9d3d7c513867 (patch) | |
| tree | 528d36dfa2949da4d5c300eaa67ad37bdf25f058 | |
| parent | 556e722992efcab0c7c52cd55b7b3a133bef250e (diff) | |
add service replacement script, RT#40031
| -rw-r--r-- | bin/svc.replace | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/bin/svc.replace b/bin/svc.replace index 1d2513a33..ad9cc43a2 100644 --- 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 } |