X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fpart_pkg.cgi;h=6cfaa122e5e7e740be60e0e854069f322f7a8398;hp=5850599c8c2ad90c59300791623eb5ea2162fb17;hb=a6d3e4dc73803cffad96fd4b6270b2fb5f4b0568;hpb=87b5424ee8f16f824865cd7dbf1efde8da3bd429 diff --git a/httemplate/edit/process/part_pkg.cgi b/httemplate/edit/process/part_pkg.cgi index 5850599c8..6cfaa122e 100755 --- a/httemplate/edit/process/part_pkg.cgi +++ b/httemplate/edit/process/part_pkg.cgi @@ -1,5 +1,5 @@ <% -# +# 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; +#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($_));