diff options
author | jeff <jeff> | 2009-06-19 21:49:03 +0000 |
---|---|---|
committer | jeff <jeff> | 2009-06-19 21:49:03 +0000 |
commit | 5826159b3b1272f763b67f05a0cc3a53913f7912 (patch) | |
tree | 41aa768e3ddb8fda178e36bb52e8499296f1c266 /FS/FS/cust_bill_pkg_detail.pm | |
parent | b7dfb6d7c377322962801d598dbaa400ffb3d4e6 (diff) |
support some older Pg when upgrading tax rates and cust_bill_pkg_details
Diffstat (limited to 'FS/FS/cust_bill_pkg_detail.pm')
-rw-r--r-- | FS/FS/cust_bill_pkg_detail.pm | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/FS/FS/cust_bill_pkg_detail.pm b/FS/FS/cust_bill_pkg_detail.pm index f40ce58..9a90936 100644 --- a/FS/FS/cust_bill_pkg_detail.pm +++ b/FS/FS/cust_bill_pkg_detail.pm @@ -148,6 +148,37 @@ sub _upgrade_data { # class method } + } elsif ( $dbh->{pg_server_version} =~ /^704/ ) { # earlier? + + # ideally this would be supported in DBIx-DBSchema and friends + + # XXX_FIXME better locking + + 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 RENAME classnum TO old_classnum"; + my $sth = $dbh->prepare($sql) or die $dbh->errstr; + $sth->execute or die $sth->errstr; + + my $def = dbdef->table($table)->column('classnum'); + $def->type('integer'); + $def->length(''); + $sql = "ALTER TABLE $table ADD COLUMN ". $def->line($dbh); + $sth = $dbh->prepare($sql) or die $dbh->errstr; + $sth->execute or die $sth->errstr; + + $sql = "UPDATE $table SET classnum = int4( text( old_classnum ) )"; + $sth = $dbh->prepare($sql) or die $dbh->errstr; + $sth->execute or die $sth->errstr; + + $sql = "ALTER TABLE $table DROP old_classnum"; + $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"; |