From 19f2731dbceb444c5dd45f57fb0a785dcaf9aa65 Mon Sep 17 00:00:00 2001
From: levinse <levinse>
Date: Wed, 8 Dec 2010 21:37:45 +0000
Subject: -rename qual export sub to part_export, RT7111 -initial commit of
 part_pkg_vendor implementation, RT7111

---
 httemplate/edit/process/part_pkg.cgi | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'httemplate/edit')

diff --git a/httemplate/edit/process/part_pkg.cgi b/httemplate/edit/process/part_pkg.cgi
index 724880190..27f07e617 100755
--- a/httemplate/edit/process/part_pkg.cgi
+++ b/httemplate/edit/process/part_pkg.cgi
@@ -131,6 +131,16 @@ my $args_callback = sub {
                 '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;
-- 
cgit v1.2.1