projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(almost) everything for bug#375 - create export_svc table - part_svc to
[freeside.git]
/
httemplate
/
edit
/
process
/
part_pkg.cgi
diff --git
a/httemplate/edit/process/part_pkg.cgi
b/httemplate/edit/process/part_pkg.cgi
index
5240d8c
..
d489426
100755
(executable)
--- a/
httemplate/edit/process/part_pkg.cgi
+++ b/
httemplate/edit/process/part_pkg.cgi
@@
-1,4
+1,3
@@
-<!-- $Id: part_pkg.cgi,v 1.8 2002-02-09 18:24:01 ivan Exp $ -->
<%
my $dbh = dbh;
<%
my $dbh = dbh;
@@
-11,7
+10,7
@@
my $old = qsearchs('part_pkg',{'pkgpart'=>$pkgpart}) if $pkgpart;
my $plandata = $cgi->param('plandata');
my @plandata = split(',', $plandata);
$cgi->param('plandata',
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 )) {
);
foreach (qw( setuptax recurtax disabled )) {
@@
-61,7
+60,7
@@
if ( $error ) {
myexit();
}
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,
my $quantity = $cgi->param('pkg_svc'. $part_svc->svcpart) || 0;
my $old_pkg_svc = qsearchs('pkg_svc', {
'pkgpart' => $pkgpart,