-<!-- $Id: part_pkg.cgi,v 1.8 2002-02-09 18:24:01 ivan Exp $ -->
<%
my $dbh = dbh;
my $plandata = $cgi->param('plandata');
my @plandata = split(',', $plandata);
$cgi->param('plandata',
- join('', map { "$_=". $cgi->param($_). "\n" } @plandata )
+ join('', map { "$_=". join(', ', $cgi->param($_)). "\n" } @plandata )
);
foreach (qw( setuptax recurtax disabled )) {
myexit();
}
-foreach $part_svc (qsearch('part_svc',{})) {
+foreach my $part_svc (qsearch('part_svc',{})) {
my $quantity = $cgi->param('pkg_svc'. $part_svc->svcpart) || 0;
my $old_pkg_svc = qsearchs('pkg_svc', {
'pkgpart' => $pkgpart,