+my @src_part_pkg = ();
+foreach my $pkgpart ( $cgi->multi_param('pkgpart') ) {
+
+ $pkgpart =~ /^(\d+)$/
+ or die "illegal pkgpart: $pkgpart";
+
+ my $old_pkgpart = $1;
+ my $src_part_pkg = qsearchs('part_pkg', { 'pkgpart' => $old_pkgpart } )
+ or die "unknown pkgpart: $old_pkgpart";
+
+ push @src_part_pkg, $src_part_pkg;
+
+}
+