[freeside-commits] freeside/FS/FS part_pkg.pm,1.118,1.119

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv22130/FS/FS

Modified Files:
	part_pkg.pm 
Log Message:
fix vendor package id edit, RT#7111

Index: part_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg.pm,v
retrieving revision 1.118
retrieving revision 1.119
diff -u -w -d -r1.118 -r1.119
--- part_pkg.pm	12 Feb 2011 05:03:57 -0000	1.118
+++ part_pkg.pm	21 Mar 2011 01:48:27 -0000	1.119
@@ -277,9 +277,10 @@
   }
 
   if ( $options{'part_pkg_vendor'} ) {
-      my($exportnum,$vendor_pkg_id);
-      my %options_part_pkg_vendor = $options{'part_pkg_vendor'};
-      while(($exportnum,$vendor_pkg_id) = each %options_part_pkg_vendor){
+      while ( my ($exportnum, $vendor_pkg_id) =
+                each %{ $options{part_pkg_vendor} }
+            )
+      {
 	    my $ppv = new FS::part_pkg_vendor( {
 		    'pkgpart' => $self->pkgpart,
 		    'exportnum' => $exportnum,