X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=httemplate%2Fmisc%2Flink.cgi;h=ef72b4a5c808eef417d4a5e2c08a343b5ea96a4a;hb=2d53d2ebdce80d0f0dc7f75ccf506a06c2f852f9;hp=79adce88c685c264c195997097f40c83a4f810a1;hpb=0ebeec96313dd7edfca340f01f8fbbbac1f4aa1d;p=freeside.git diff --git a/httemplate/misc/link.cgi b/httemplate/misc/link.cgi index 79adce88c..ef72b4a5c 100755 --- a/httemplate/misc/link.cgi +++ b/httemplate/misc/link.cgi @@ -1,45 +1,77 @@ - -<% - -my %link_field = ( - 'svc_acct' => 'username', - 'svc_domain' => 'domain', - 'svc_charge' => '', - 'svc_wo' => '', -); - -my($query) = $cgi->keywords; -my($pkgnum, $svcpart) = ('', ''); -foreach $_ (split(/-/,$query)) { #get & untaint pkgnum & svcpart - $pkgnum=$1 if /^pkgnum(\d+)$/; - $svcpart=$1 if /^svcpart(\d+)$/; -} - -my $part_svc = qsearchs('part_svc',{'svcpart'=>$svcpart}); -my $svc = $part_svc->getfield('svc'); -my $svcdb = $part_svc->getfield('svcdb'); -my $link_field = $link_field{$svcdb}; - -print header("Link to existing $svc"), - qq!