%my %pkg_svc = map { $_ => scalar($cgi->param("pkg_svc$_")) }
% map { $_->svcpart }
% qsearch('part_svc', {} );
%my %pkg_svc = map { $_ => scalar($cgi->param("pkg_svc$_")) }
% map { $_->svcpart }
% qsearch('part_svc', {} );
% my $error = $new->process_m2m(
% 'link_table' => 'type_pkgs',
% 'target_table' => 'agent_type',
% my $error = $new->process_m2m(
% 'link_table' => 'type_pkgs',
% 'target_table' => 'agent_type',
% $cgi->param('error', $error );
% print $cgi->redirect(popurl(2). "part_pkg.cgi?". $cgi->query_string );
%} elsif ( $custnum ) {
% $cgi->param('error', $error );
% print $cgi->redirect(popurl(2). "part_pkg.cgi?". $cgi->query_string );
%} elsif ( $custnum ) {