X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Flink.cgi;h=ef72b4a5c808eef417d4a5e2c08a343b5ea96a4a;hp=1d1f5e1336b0c32cf6cf1af5f751b7cdeea8090b;hb=633c48448d9468690b7ad77eb6ff7c660a286658;hpb=6cb5c702b17b98be46adea4539e15d5f312e5be1

diff --git a/httemplate/misc/link.cgi b/httemplate/misc/link.cgi
index 1d1f5e133..ef72b4a5c 100755
--- a/httemplate/misc/link.cgi
+++ b/httemplate/misc/link.cgi
@@ -1,6 +1,3 @@
-<!-- mason kludge -->
-%
-%
 %my %link_field = (
 %  'svc_acct'    => 'username',
 %  'svc_domain'  => 'domain',
@@ -16,12 +13,10 @@
 %                   },
 %);
 %
-%my($query) = $cgi->keywords;
-%my($pkgnum, $svcpart) = ('', '');
-%foreach $_ (split(/-/,$query)) { #get & untaint pkgnum & svcpart
-%  $pkgnum=$1 if /^pkgnum(\d+)$/;
-%  $svcpart=$1 if /^svcpart(\d+)$/;
-%}
+%$cgi->param('pkgnum') =~ /^(\d+)$/ or die 'unparsable pkgnum';
+%my $pkgnum = $1;
+%$cgi->param('svcpart') =~ /^(\d+)$/ or die 'unparsable svcpart';
+%my $svcpart = $1;
 %
 %my $part_svc = qsearchs('part_svc',{'svcpart'=>$svcpart});
 %my $svc = $part_svc->getfield('svc');
@@ -29,8 +24,6 @@
 %my $link_field = $link_field{$svcdb};
 %my $link_field2 = $link_field2{$svcdb};
 %
-%
-
 
 <% include("/elements/header.html","Link to existing $svc") %>
 <FORM ACTION="<% popurl(1) %>process/link.cgi" METHOD=POST>