my $new = new FS::part_pkg ( {
map {
- $_, scalar($cgi->param($_));
+ $_ => scalar($cgi->param($_));
} fields('part_pkg')
} );
-my %pkg_svc = map { $_ => $cgi->param("pkg_svc$_") }
+my %pkg_svc = map { $_ => scalar($cgi->param("pkg_svc$_")) }
map { $_->svcpart }
qsearch('part_svc', {} );
my $error;
my $custnum = '';
if ( $pkgpart ) {
- $error = $new->replace( $old, 'pkg_svc' => \%pkg_svc,
- 'primary_svc' => $cgi->param('pkg_svc_primary'),
+ $error = $new->replace( $old,
+ pkg_svc => \%pkg_svc,
+ primary_svc => scalar($cgi->param('pkg_svc_primary')),
);
} else {
- $error = $new->insert( 'pkg_svc' => \%pkg_svc,
- 'primary_svc' => $cgi->param('pkg_svc_primary'),
- 'cust_pkg' => $cgi->param('pkgnum'),
- 'custnum_ref' => \$custnum,
+ $error = $new->insert( pkg_svc => \%pkg_svc,
+ primary_svc => scalar($cgi->param('pkg_svc_primary')),
+ cust_pkg => $cgi->param('pkgnum'),
+ custnum_ref => \$custnum,
);
$pkgpart = $new->pkgpart;
}