# more mod_perl fixes, and bugfixes Peter Wemm sent via email
#
# Revision 1.7 1999/01/19 05:13:55 ivan
# more mod_perl fixes, and bugfixes Peter Wemm sent via email
#
# Revision 1.7 1999/01/19 05:13:55 ivan
$cgi->param('error', $error );
print $cgi->redirect(popurl(2). "part_pkg.cgi?". $cgi->query_string );
exit;
$cgi->param('error', $error );
print $cgi->redirect(popurl(2). "part_pkg.cgi?". $cgi->query_string );
exit;
print $cgi->redirect(popurl(3). "browse/part_pkg.cgi");
} else {
my($old_cust_pkg) = qsearchs( 'cust_pkg', { 'pkgnum' => $1 } );
print $cgi->redirect(popurl(3). "browse/part_pkg.cgi");
} else {
my($old_cust_pkg) = qsearchs( 'cust_pkg', { 'pkgnum' => $1 } );
$hash{'pkgpart'} = $pkgpart;
my($new_cust_pkg) = new FS::cust_pkg \%hash;
my $myerror = $new_cust_pkg->replace($old_cust_pkg);
$hash{'pkgpart'} = $pkgpart;
my($new_cust_pkg) = new FS::cust_pkg \%hash;
my $myerror = $new_cust_pkg->replace($old_cust_pkg);