5 'svc_acct' => 'username',
6 'svc_domain' => 'domain',
12 my($query) = $cgi->keywords;
13 my($pkgnum, $svcpart) = ('', '');
14 foreach $_ (split(/-/,$query)) { #get & untaint pkgnum & svcpart
15 $pkgnum=$1 if /^pkgnum(\d+)$/;
16 $svcpart=$1 if /^svcpart(\d+)$/;
19 my $part_svc = qsearchs('part_svc',{'svcpart'=>$svcpart});
20 my $svc = $part_svc->getfield('svc');
21 my $svcdb = $part_svc->getfield('svcdb');
22 my $link_field = $link_field{$svcdb};
24 print header("Link to existing $svc"),
25 qq!<FORM ACTION="!, popurl(1), qq!process/link.cgi" METHOD=POST>!;
29 <INPUT TYPE="hidden" NAME="svcnum" VALUE="">
30 <INPUT TYPE="hidden" NAME="link_field" VALUE="$link_field">
31 $link_field of existing service: <INPUT TYPE="text" NAME="link_value">
34 print qq!Service # of existing service: <INPUT TYPE="text" NAME="svcnum" VALUE="">!;
38 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">
39 <INPUT TYPE="hidden" NAME="svcpart" VALUE="$svcpart">
40 <P><CENTER><INPUT TYPE="submit" VALUE="Link"></CENTER>