diff options
author | Irina Todeva <itodeva@hostgator.com> | 2015-10-08 12:03:08 -0600 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2015-11-03 12:28:13 -0800 |
commit | 1ef811033e1ea791388c7c8d15a3a5a720b1f37f (patch) | |
tree | 6f8db69ace441ed9c6a5ac81b6c6cc54a175875b /FS/FS/cust_bill_pkg_void.pm | |
parent | 9170a3f9609625af49cd9e20003948713389c634 (diff) |
Tables added to the list with data upgrade because of reason and void_reason
legacy fields:
- cust_credit_void
- cust_bill_void
- cust_bill_pkg_void
Made some changes to reason_Mixin to be able to upgrade reason an void_reason
fields
Diffstat (limited to 'FS/FS/cust_bill_pkg_void.pm')
-rw-r--r-- | FS/FS/cust_bill_pkg_void.pm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/FS/FS/cust_bill_pkg_void.pm b/FS/FS/cust_bill_pkg_void.pm index 4b9cffd..991dd37 100644 --- a/FS/FS/cust_bill_pkg_void.pm +++ b/FS/FS/cust_bill_pkg_void.pm @@ -2,6 +2,7 @@ package FS::cust_bill_pkg_void; use base qw( FS::TemplateItem_Mixin FS::reason_Mixin FS::Record ); use strict; +use vars qw( $me $DEBUG ); use FS::Record qw( qsearch qsearchs dbh fields ); use FS::cust_bill_void; use FS::cust_bill_pkg_detail; @@ -13,6 +14,9 @@ use FS::cust_bill_pkg_tax_location; use FS::cust_bill_pkg_tax_rate_location; use FS::cust_tax_exempt_pkg; +$me = '[ FS::cust_bill_pkg_void ]'; +$DEBUG = 0; + =head1 NAME FS::cust_bill_pkg_void - Object methods for cust_bill_pkg_void records @@ -279,6 +283,18 @@ sub cust_bill_pkg_fee { qsearch( 'cust_bill_pkg_fee_void', { 'billpkgnum' => $self->billpkgnum } ); } + +# _upgrade_data +# +# Used by FS::Upgrade to migrate to a new database. +sub _upgrade_data { # class method + my ($class, %opts) = @_; + + warn "$me upgrading $class\n" if $DEBUG; + + $class->_upgrade_reasonnum(%opts); +} + =back =head1 BUGS |