diff options
| author | ivan <ivan> | 2010-10-23 00:54:09 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2010-10-23 00:54:09 +0000 |
| commit | ef8fa8aaab31d2536d6548c1266fc6cd7b6c8be4 (patch) | |
| tree | e2a16b4e17b6657cf95f5ba63925329d66c11428 /FS/FS/cust_bill_pkg_detail.pm | |
| parent | 0dcb2b5174594aa4675de053fb68108d74fc53eb (diff) | |
fix upgrades from old 1.7
Diffstat (limited to 'FS/FS/cust_bill_pkg_detail.pm')
| -rw-r--r-- | FS/FS/cust_bill_pkg_detail.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/FS/FS/cust_bill_pkg_detail.pm b/FS/FS/cust_bill_pkg_detail.pm index b8af013..7badaa3 100644 --- a/FS/FS/cust_bill_pkg_detail.pm +++ b/FS/FS/cust_bill_pkg_detail.pm @@ -238,7 +238,10 @@ sub _upgrade_schema { # class method warn "$me upgrading $class\n" if $DEBUG; - my $type = dbdef->table($class->table)->column('classnum')->type; + my $classnum = dbdef->table($class->table)->column('classnum') + or return; + + my $type = $classnum->type; unless ( $type =~ /^int/i || $type =~ /int$/i ) { my $dbh = dbh; |