-#$req->cgi->redirect("../../view/part_pkg.cgi?$pkgpart");
-#$req->cgi->redirect("../../edit/part_pkg.cgi?$pkgpart");
-$req->cgi->redirect("../../browse/part_pkg.cgi");
+unless ( $cgi->param('pkgnum') && $cgi->param('pkgnum') =~ /^(\d+)$/ ) {
+ #$req->cgi->redirect("../../view/part_pkg.cgi?$pkgpart");
+ #$req->cgi->redirect("../../edit/part_pkg.cgi?$pkgpart");
+ print $cgi->redirect(popurl(3). "/browse/part_pkg.cgi");
+} else {
+ my($old_cust_pkg) = qsearchs( 'cust_pkg', { 'pkgnum' => $1 } );
+ my %hash = $old_cust_pkg->hash;
+ $hash{'pkgpart'} = $pkgpart;
+ my($new_cust_pkg) = create FS::cust_pkg \%hash;
+ my $error = $new_cust_pkg->replace($old_cust_pkg);
+ eidiot "Error modifying cust_pkg record: $error\n" if $error;
+ print $cgi->redirect(popurl(3). "/view/cust_main.cgi?". $new_cust_pkg->custnum);
+}
+