From 50053b94beac4aef39ddc007c851184649d49564 Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Fri, 24 Dec 2010 10:45:06 +0000
Subject: [PATCH] upgrade unused_credit option, RT#10670

---
 FS/FS/part_pkg.pm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index 58f70716d..f4aacaeec 100644
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -1459,6 +1459,25 @@ sub _upgrade_data { # class method
     die $error if $error;
   }
 
+  my @part_pkg_option = qsearch('part_pkg_option',
+    { 'optionname'  => 'unused_credit',
+      'optionvalue' => 1,
+    });
+  foreach my $old_opt (@part_pkg_option) {
+    my $pkgpart = $old_opt->pkgpart;
+    my $error = $old_opt->delete;
+    die $error if $error;
+
+    foreach (qw(unused_credit_cancel unused_credit_change)) {
+      my $new_opt = new FS::part_pkg_option {
+        'pkgpart'     => $pkgpart,
+        'optionname'  => $_,
+        'optionvalue' => 1,
+      };
+      $error = $new_opt->insert;
+      die $error if $error;
+    }
+  }
 }
 
 =item curuser_pkgs_sql
-- 
2.11.0