1606 correct bug in overlimit groups handling

[freeside.git] / httemplate / misc / process / link.cgi

diff --git a/httemplate/misc/process/link.cgi b/httemplate/misc/process/link.cgi
index fd3d8bb..7c71371 100755 (executable)
--- a/httemplate/misc/process/link.cgi
+++ b/httemplate/misc/process/link.cgi
@@ -52,11 +52,9 @@
 %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);
 %}