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

[Erik Levinson]

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

Modified Files:
	part_pkg.cgi 
Log Message:
-rename qual export sub to part_export, RT7111
-initial commit of part_pkg_vendor implementation, RT7111



Index: part_pkg.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/process/part_pkg.cgi,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -w -d -r1.46 -r1.47
--- part_pkg.cgi	13 Nov 2010 23:23:48 -0000	1.46
+++ part_pkg.cgi	8 Dec 2010 21:37:45 -0000	1.47
@@ -131,6 +131,16 @@
                 'custnum_ref' => \$custnum;
   }
 
+  my %part_pkg_vendor;
+  foreach my $param ( $cgi->param ) {
+    if ( $param =~ /^export(\d+)$/ && length($cgi->param($param)) > 0 ) {
+	$part_pkg_vendor{$1} = $cgi->param($param);
+    }
+  }
+  if ( keys %part_pkg_vendor > 0 ) {
+    push @args, 'part_pkg_vendor' => \%part_pkg_vendor;
+  }
+
   #warn "args: ".join('/', @args). "\n";
 
   @args;