[freeside-commits] freeside/FS/FS part_pkg.pm,1.111.2.2,1.111.2.3

[Mark Wells]

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

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	part_pkg.pm 
Log Message:
upgrade unused_credit option, RT#10670

Index: part_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg.pm,v
retrieving revision 1.111.2.2
retrieving revision 1.111.2.3
diff -u -w -d -r1.111.2.2 -r1.111.2.3
--- part_pkg.pm	24 Dec 2010 09:49:48 -0000	1.111.2.2
+++ part_pkg.pm	24 Dec 2010 10:45:17 -0000	1.111.2.3
@@ -1368,6 +1368,25 @@
     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