foreach $part_svc ( qsearch('part_svc',{}) ) {
my($svcpart)=$part_svc->getfield('svcpart');
my($pkg_svc)=qsearchs('pkg_svc',{
'pkgpart' => $cgi->param('clone') || $part_pkg->getfield('pkgpart'),
'svcpart' => $svcpart,
foreach $part_svc ( qsearch('part_svc',{}) ) {
my($svcpart)=$part_svc->getfield('svcpart');
my($pkg_svc)=qsearchs('pkg_svc',{
'pkgpart' => $cgi->param('clone') || $part_pkg->getfield('pkgpart'),
'svcpart' => $svcpart,