diff options
author | ivan <ivan> | 2008-04-15 19:43:54 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-04-15 19:43:54 +0000 |
commit | bdbfd5c5a3bb7bc193b82dc39b98ae9ffe99da44 (patch) | |
tree | 3d8209a37d8b5e4b083fba182f5726c3283ad40c /FS/FS/part_pkg_option.pm | |
parent | 477015901c379f8cd6ba46cfaa4a9ae284ae582d (diff) |
s/recur_flat/recur_fee/
Diffstat (limited to 'FS/FS/part_pkg_option.pm')
-rw-r--r-- | FS/FS/part_pkg_option.pm | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/FS/FS/part_pkg_option.pm b/FS/FS/part_pkg_option.pm index c2f609e1b..9708f11bc 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. |