diff options
author | ivan <ivan> | 2009-02-22 19:46:22 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-02-22 19:46:22 +0000 |
commit | 027756090552715f79cd3a4de08ee73091ad99f0 (patch) | |
tree | 7949798ac79a28bab5533fcdaae90fd95ab58f5d /FS/FS | |
parent | 65efe8eb9ee8bb02deb776da0897e25d821b4f65 (diff) |
add h_cust_pkg and h_cust_pkg_reason packages, RT#4896
Diffstat (limited to 'FS/FS')
-rw-r--r-- | FS/FS/cust_pkg_reason.pm | 11 | ||||
-rw-r--r-- | FS/FS/h_cust_pkg.pm | 34 | ||||
-rw-r--r-- | FS/FS/h_cust_pkg_reason.pm | 34 |
3 files changed, 71 insertions, 8 deletions
diff --git a/FS/FS/cust_pkg_reason.pm b/FS/FS/cust_pkg_reason.pm index 43f83d4..4037513 100644 --- a/FS/FS/cust_pkg_reason.pm +++ b/FS/FS/cust_pkg_reason.pm @@ -134,6 +134,9 @@ sub reasontext { # # Used by FS::Upgrade to migrate to a new database. +use FS::h_cust_pkg; +use FS::h_cust_pkg_reason; + sub _upgrade_data { # class method my ($class, %opts) = @_; @@ -143,11 +146,6 @@ sub _upgrade_data { # class method my $count = 0; my @unmigrated = qsearch('cust_pkg_reason', { 'action' => '' } ); foreach ( @unmigrated ) { - # we could create h_cust_pkg_reason and h_cust_pkg_reason packages - @FS::h_cust_pkg::ISA = qw( FS::h_Common FS::cust_pkg ); - sub FS::h_cust_pkg::table { 'h_cust_pkg' }; - @FS::h_cust_pkg_reason::ISA = qw( FS::h_Common FS::cust_pkg_reason ); - sub FS::h_cust_pkg_reason::table { 'h_cust_pkg_reason' }; my @history_cust_pkg_reason = qsearch( 'h_cust_pkg_reason', { $_->hash } ); @@ -227,9 +225,6 @@ sub _upgrade_data { # class method extra_sql => $extra_sql, }); foreach ( @unmigrated ) { - # we could create h_cust_pkg_reason and h_cust_pkg_reason packages - @FS::h_cust_pkg::ISA = qw( FS::h_Common FS::cust_pkg ); - sub FS::h_cust_pkg::table { 'h_cust_pkg' }; my %action_value = ( op => 'LIKE', value => 'replace_%', diff --git a/FS/FS/h_cust_pkg.pm b/FS/FS/h_cust_pkg.pm new file mode 100644 index 0000000..e796f41 --- /dev/null +++ b/FS/FS/h_cust_pkg.pm @@ -0,0 +1,34 @@ +package FS::h_cust_pkg; + +use strict; +use vars qw( @ISA ); +use FS::h_Common; +use FS::cust_pkg; + +@ISA = qw( FS::h_Common FS::cust_pkg ); + +sub table { 'h_cust_pkg' }; + +=head1 NAME + +FS::h_cust_pkg - Historical record of customer package changes + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +An FS::h_cust_pkg object represents historical changes to packages. +FS::h_cust_pkg inherits from FS::h_Common and FS::cust_pkg. + +=head1 BUGS + +=head1 SEE ALSO + +L<FS::cust_pkg>, L<FS::h_Common>, L<FS::Record>, schema.html from the base +documentation. + +=cut + +1; + + diff --git a/FS/FS/h_cust_pkg_reason.pm b/FS/FS/h_cust_pkg_reason.pm new file mode 100644 index 0000000..dda2009 --- /dev/null +++ b/FS/FS/h_cust_pkg_reason.pm @@ -0,0 +1,34 @@ +package FS::h_cust_pkg_reason; + +use strict; +use vars qw( @ISA ); +use FS::h_Common; +use FS::cust_pkg_reason; + +@ISA = qw( FS::h_Common FS::cust_pkg_reason ); + +sub table { 'h_cust_pkg_reason' }; + +=head1 NAME + +FS::h_cust_pkg_reason - Historical record of customer package changes + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +An FS::h_cust_pkg_reason object represents historical changes to packages. +FS::h_cust_pkg_reason inherits from FS::h_Common and FS::cust_pkg_reason. + +=head1 BUGS + +=head1 SEE ALSO + +L<FS::cust_pkg_reason>, L<FS::h_Common>, L<FS::Record>, schema.html from the +base documentation. + +=cut + +1; + + |