%
% my $svc_x = $svc_x[0];
%
-% eidiot("$link_field not found!") unless $svc_x;
+% errorpage("$link_field not found!") unless $svc_x;
%
% $svcnum = $svc_x->svcnum;
%
%if ( $old->pkgnum && ! $conf->exists('legacy_link-steal') ) {
% $error = "svcnum $svcnum already linked to package ". $old->pkgnum;
%} else {
-% $new = new FS::cust_svc ({
-% 'svcnum' => $svcnum,
-% 'pkgnum' => $pkgnum,
-% 'svcpart' => $svcpart,
-% });
+% $new = new FS::cust_svc { $old->hash };
+% $new->pkgnum($pkgnum);
+% $new->svcpart($svcpart);
%
% $error = $new->replace($old);
%}
<!-- mason kludge -->
%
-% idiot($error);
+% errorpage($error);
%}
%
%