freeside/FS/FS part_pkg.pm,1.34,1.35

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv27250

Modified Files:
	part_pkg.pm 
Log Message:
small bugfix for options option

Index: part_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- part_pkg.pm	25 Feb 2005 20:21:15 -0000	1.34
+++ part_pkg.pm	25 Feb 2005 20:52:11 -0000	1.35
@@ -190,7 +190,7 @@
   } elsif ( $options{'options'} ) {
 
     warn "  inserting part_pkg_option records for options hashref" if $DEBUG;
-    foreach my $optionname ( %{$options{'options'}} ) {
+    foreach my $optionname ( keys %{$options{'options'}} ) {
 
       my $part_pkg_option =
         new FS::part_pkg_option {