my $plandata = $cgi->param('plandata');
my @plandata = split(',', $plandata);
$cgi->param('plandata',
my $plandata = $cgi->param('plandata');
my @plandata = split(',', $plandata);
$cgi->param('plandata',
unless ( $quantity =~ /^(\d+)$/ ) {
$cgi->param('error', "Illegal quantity" );
print $cgi->redirect(popurl(2). "part_pkg.cgi?". $cgi->query_string );
unless ( $quantity =~ /^(\d+)$/ ) {
$cgi->param('error', "Illegal quantity" );
print $cgi->redirect(popurl(2). "part_pkg.cgi?". $cgi->query_string );
$dbh->rollback;
$cgi->param('error', $error );
print $cgi->redirect(popurl(2). "part_pkg.cgi?". $cgi->query_string );
$dbh->rollback;
$cgi->param('error', $error );
print $cgi->redirect(popurl(2). "part_pkg.cgi?". $cgi->query_string );
my $quantity = $cgi->param('pkg_svc'. $part_svc->svcpart) || 0;
my $old_pkg_svc = qsearchs('pkg_svc', {
'pkgpart' => $pkgpart,
my $quantity = $cgi->param('pkg_svc'. $part_svc->svcpart) || 0;
my $old_pkg_svc = qsearchs('pkg_svc', {
'pkgpart' => $pkgpart,