projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
price plans web gui 1st pass, oh my
[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
5850599
..
6cfaa12
100755
(executable)
--- a/
httemplate/edit/process/part_pkg.cgi
+++ b/
httemplate/edit/process/part_pkg.cgi
@@
-1,5
+1,5
@@
<%
<%
-#<!-- $Id: part_pkg.cgi,v 1.
2 2001-08-21 02:31:56
ivan Exp $ -->
+#<!-- $Id: part_pkg.cgi,v 1.
3 2001-10-15 10:42:29
ivan Exp $ -->
use strict;
use vars qw( $cgi $pkgpart $old $new $part_svc $error $dbh );
use strict;
use vars qw( $cgi $pkgpart $old $new $part_svc $error $dbh );
@@
-19,6
+19,13
@@
$pkgpart = $cgi->param('pkgpart');
$old = qsearchs('part_pkg',{'pkgpart'=>$pkgpart}) if $pkgpart;
$old = qsearchs('part_pkg',{'pkgpart'=>$pkgpart}) if $pkgpart;
+#fixup plandata
+my $plandata = $cgi->param('plandata');
+my @plandata = split(',', $plandata);
+$cgi->param('plandata',
+ join('', map { "$_=". $cgi->param($_). "\n" } @plandata )
+);
+
$new = new FS::part_pkg ( {
map {
$_, scalar($cgi->param($_));
$new = new FS::part_pkg ( {
map {
$_, scalar($cgi->param($_));