my @svcparts = map { $_->svcpart } qsearch('part_svc', {});
my %pkg_svc = map { $_ => scalar($cgi->param("pkg_svc$_" )) } @svcparts;
my %hidden_svc = map { $_ => scalar($cgi->param("hidden$_" )) } @svcparts;
my @svcparts = map { $_->svcpart } qsearch('part_svc', {});
my %pkg_svc = map { $_ => scalar($cgi->param("pkg_svc$_" )) } @svcparts;
my %hidden_svc = map { $_ => scalar($cgi->param("hidden$_" )) } @svcparts;