[freeside-commits] freeside/httemplate/edit/process part_pkg.cgi, 1.45, 1.46

Mark Wells mark at wavetail.420.am
Sat Nov 13 15:23:50 PST 2010


Update of /home/cvs/cvsroot/freeside/httemplate/edit/process
In directory wavetail.420.am:/tmp/cvs-serv6510/httemplate/edit/process

Modified Files:
	part_pkg.cgi 
Log Message:
hidden pkg_svc flag, RT#9871

Index: part_pkg.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/process/part_pkg.cgi,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -w -d -r1.45 -r1.46
--- part_pkg.cgi	4 Nov 2010 22:57:13 -0000	1.45
+++ part_pkg.cgi	13 Nov 2010 23:23:48 -0000	1.46
@@ -117,11 +117,11 @@
   #pkg_svc
   ###
 
-  my %pkg_svc = map { $_ => scalar($cgi->param("pkg_svc$_")) }
-                map { $_->svcpart }
-                qsearch('part_svc', {} );
+  my @svcparts = map { $_->svcpart } qsearch('part_svc', {});
+  my %pkg_svc = map { $_ => scalar($cgi->param("pkg_svc$_")) } @svcparts;
+  my %hidden_svc = map { $_ => scalar($cgi->param("hidden$_")) } @svcparts;
 
-  push @args, 'pkg_svc' => \%pkg_svc;
+  push @args, 'pkg_svc' => \%pkg_svc, 'hidden_svc' => \%hidden_svc;
 
   ###
   # cust_pkg and custnum_ref (inserts only)



More information about the freeside-commits mailing list