From fa234efef75db594f78e8c4a093e2c2d863dfdde Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 13 May 2008 21:20:08 +0000
Subject: [PATCH] eliminate warnings on upgrade: "(Odd number of elements in
 anonymous hash | Use of unintialized value in anonymous hash ) at
 /usr/local/share/perl/5.8.8/FS/option_Common.pm line 176.

---
 FS/FS/part_pkg.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index fd43e61c6..c3e76d5bd 100644
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -254,14 +254,17 @@ sub delete {
 Replaces OLD_RECORD with this one in the database.  If there is an error,
 returns the error, otherwise returns false.
 
-Currently available options are: I<pkg_svc> and I<primary_svc>
+Currently available options are: I<pkg_svc>, I<primary_svc> and I<options>
 
 If I<pkg_svc> is set to a hashref with svcparts as keys and quantities as
-values, the appropriate FS::pkg_svc records will be replace.
+values, the appropriate FS::pkg_svc records will be replaced.
 
 If I<primary_svc> is set to the svcpart of the primary service, the appropriate
 FS::pkg_svc record will be updated.
 
+If I<options> is set to a hashref, the appropriate FS::part_pkg_option records
+will be replaced.
+
 =cut
 
 sub replace {
@@ -276,6 +279,8 @@ sub replace {
       ? shift
       : { @_ };
 
+  $options->{options} = {} unless defined($options->{options});
+
   warn "FS::part_pkg::replace called on $new to replace $old with options".
        join(', ', map "$_ => ". $options->{$_}, keys %$options)
     if $DEBUG;
-- 
2.11.0