-<!-- mason kludge -->
-%
-%
-%my %link_field = (
-% 'svc_acct' => 'username',
-% 'svc_domain' => 'domain',
-%);
-%
-%my %link_field2 = (
-% 'svc_acct' => { label => 'Domain',
-% field => 'domsvc',
-% type => 'select',
-% select_table => 'svc_domain',
-% select_key => 'svcnum',
-% select_label => 'domain'
-% },
-%);
-%
-%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};
-%my $link_field2 = $link_field2{$svcdb};
-%
-%
-
-