[freeside-commits] freeside/FS/FS part_pkg_option.pm,1.1,1.2

[Ivan,,,]

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

Modified Files:
	part_pkg_option.pm 
Log Message:
s/recur_flat/recur_fee/

Index: part_pkg_option.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg_option.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- part_pkg_option.pm	26 Oct 2004 11:26:33 -0000	1.1
+++ part_pkg_option.pm	15 Apr 2008 19:43:53 -0000	1.2
@@ -2,7 +2,7 @@
 
 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 @@
 
 =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.