freeside/httemplate/edit/process part_pkg.cgi,1.13,1.14

[ivan]

Update of /home/cvs/cvsroot/freeside/httemplate/edit/process
In directory pouncequick:/tmp/cvs-serv866/process

Modified Files:
	part_pkg.cgi 
Log Message:
fixes package editing problem with extraneous services showing up, closes: Bug#1170

Index: part_pkg.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/process/part_pkg.cgi,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- part_pkg.cgi	23 Dec 2004 09:15:16 -0000	1.13
+++ part_pkg.cgi	10 Mar 2005 08:58:02 -0000	1.14
@@ -19,11 +19,11 @@
 
 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', {} );