diff options
Diffstat (limited to 'bin/svc.replace')
-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 1d2513a..ad9cc43 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 } |