diff options
author | jeff <jeff> | 2009-04-04 16:22:19 +0000 |
---|---|---|
committer | jeff <jeff> | 2009-04-04 16:22:19 +0000 |
commit | e6f3d047e87488badad86b71508b1f4d07c981f9 (patch) | |
tree | 8b5b2c7fca7b42458337f591b2369d2ed139d58d /FS/FS/cust_bill_pkg_detail.pm | |
parent | a9393a0c1e6f1c6a5dc319238ae5fefb092604fc (diff) |
correct bad schema bug in cust_bill_pkg_detail
Diffstat (limited to 'FS/FS/cust_bill_pkg_detail.pm')
-rw-r--r-- | FS/FS/cust_bill_pkg_detail.pm | 46 |
1 files changed, 44 insertions, 2 deletions
diff --git a/FS/FS/cust_bill_pkg_detail.pm b/FS/FS/cust_bill_pkg_detail.pm index 8a48888..f40ce58 100644 --- a/FS/FS/cust_bill_pkg_detail.pm +++ b/FS/FS/cust_bill_pkg_detail.pm @@ -1,8 +1,8 @@ package FS::cust_bill_pkg_detail; use strict; -use vars qw( @ISA $me $DEBUG ); -use FS::Record qw( qsearch qsearchs dbdef ); +use vars qw( @ISA $me $DEBUG %GetInfoType ); +use FS::Record qw( qsearch qsearchs dbdef dbh ); use FS::cust_bill_pkg; @ISA = qw(FS::Record); @@ -121,6 +121,48 @@ sub _upgrade_data { # class method warn "$me upgrading $class\n" if $DEBUG; + my $columndef = dbdef->table($class->table)->column('classnum'); + unless ($columndef->type eq 'int4') { + + my $dbh = dbh; + if ( $dbh->{Driver}->{Name} eq 'Pg' ) { + + eval "use DBI::Const::GetInfoType;"; + die $@ if $@; + + my $major_version = 0; + $dbh->get_info( $GetInfoType{SQL_DBMS_VER} ) =~ /^(\d{2})/ + && ( $major_version = sprintf("%d", $1) ); + + if ( $major_version > 7 ) { + + # ideally this would be supported in DBIx-DBSchema and friends + + foreach my $table ( qw( cust_bill_pkg_detail h_cust_bill_pkg_detail ) ){ + + warn "updating $table column classnum to integer\n" if $DEBUG; + my $sql = "ALTER TABLE $table ALTER classnum TYPE int USING ". + "int4(classnum)"; + my $sth = $dbh->prepare($sql) or die $dbh->errstr; + $sth->execute or die $sth->errstr; + + } + + } else { + + die "cust_bill_pkg_detail classnum upgrade unsupported for this Pg version\n"; + + } + + } else { + + die "cust_bill_pkg_detail classnum upgrade only supported for Pg 8+\n"; + + } + + } + + if ( defined( dbdef->table($class->table)->column('billpkgnum') ) && defined( dbdef->table($class->table)->column('invnum') ) && defined( dbdef->table($class->table)->column('pkgnum') ) |