From bdbfd5c5a3bb7bc193b82dc39b98ae9ffe99da44 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 15 Apr 2008 19:43:54 +0000
Subject: s/recur_flat/recur_fee/

---
 FS/FS/part_pkg_option.pm | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

(limited to 'FS/FS/part_pkg_option.pm')

diff --git a/FS/FS/part_pkg_option.pm b/FS/FS/part_pkg_option.pm
index c2f609e..9708f11 100644
--- a/FS/FS/part_pkg_option.pm
+++ b/FS/FS/part_pkg_option.pm
@@ -2,7 +2,7 @@ package FS::part_pkg_option;
 
 use strict;
 use vars qw( @ISA );
-use FS::Record qw( qsearch qsearchs );
+use FS::Record qw( qsearch qsearchs dbh );
 use FS::part_pkg;
 
 @ISA = qw(FS::Record);
@@ -117,6 +117,25 @@ sub check {
 
 =back
 
+=cut
+
+#
+# Used by FS::Upgrade to migrate to a new database.
+#
+#
+
+sub _upgrade_data {  # class method
+  my ($class, %opts) = @_;
+
+  my $sql = "UPDATE part_pkg_option SETUP optionname = 'recur_fee'".
+            " WHERE optionname = 'recur_flat'";
+  my $sth = dbh->prepare($sql) or die dbh->errstr;
+  $sth->execute or die $sth->errstr;
+
+  '';
+
+}
+
 =head1 BUGS
 
 Possibly.
-- 
cgit v1.1