[freeside-commits] freeside/FS/FS cust_pkg_reason.pm, 1.1.2.6, 1.1.2.7 h_cust_pkg.pm, NONE, 1.1.4.2 h_cust_pkg_reason.pm, NONE, 1.1.4.2

[Jeff Finucane,420,,]

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

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	cust_pkg_reason.pm 
Added Files:
      Tag: FREESIDE_1_7_BRANCH
	h_cust_pkg.pm h_cust_pkg_reason.pm 
Log Message:
backport history packages

--- NEW FILE: h_cust_pkg.pm ---
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;



--- NEW FILE: h_cust_pkg_reason.pm ---
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;



Index: cust_pkg_reason.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pkg_reason.pm,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -d -r1.1.2.6 -r1.1.2.7
--- cust_pkg_reason.pm	15 Mar 2009 22:46:36 -0000	1.1.2.6
+++ cust_pkg_reason.pm	16 Mar 2009 00:34:50 -0000	1.1.2.7
@@ -134,8 +134,8 @@
 #
 # Used by FS::Upgrade to migrate to a new database.
 
-#use FS::h_cust_pkg;
-#use FS::h_cust_pkg_reason;
+use FS::h_cust_pkg;
+use FS::h_cust_pkg_reason;
 use FS::Schema qw(dbdef);
 
 sub _upgrade_data { # class method
@@ -149,11 +149,6 @@
   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 } );
     
@@ -230,9 +225,6 @@
                                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 $hashref = { pkgnum => $_->pkgnum,
                       history_date   => $_->date,