projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add dash carrier services e911 support RT7103
[freeside.git]
/
FS
/
FS
/
cust_bill_pkg_detail.pm
diff --git
a/FS/FS/cust_bill_pkg_detail.pm
b/FS/FS/cust_bill_pkg_detail.pm
index
63d0ac5
..
4d9ee81
100644
(file)
--- a/
FS/FS/cust_bill_pkg_detail.pm
+++ b/
FS/FS/cust_bill_pkg_detail.pm
@@
-5,6
+5,7
@@
use vars qw( @ISA $me $DEBUG %GetInfoType );
use HTML::Entities;
use FS::Record qw( qsearch qsearchs dbdef dbh );
use FS::cust_bill_pkg;
use HTML::Entities;
use FS::Record qw( qsearch qsearchs dbdef dbh );
use FS::cust_bill_pkg;
+use FS::usage_class;
use FS::Conf;
@ISA = qw(FS::Record);
use FS::Conf;
@ISA = qw(FS::Record);
@@
-240,8
+241,8
@@
sub _upgrade_data { # class method
warn "$me upgrading $class\n" if $DEBUG;
warn "$me upgrading $class\n" if $DEBUG;
- my $
columndef = dbdef->table($class->table)->column('classnum')
;
- unless (
$columndef->type eq 'int4'
) {
+ my $
type = dbdef->table($class->table)->column('classnum')->type
;
+ unless (
$type =~ /^int/i || $type =~ /int$/i
) {
my $dbh = dbh;
if ( $dbh->{Driver}->{Name} eq 'Pg' ) {
my $dbh = dbh;
if ( $dbh->{Driver}->{Name} eq 'Pg' ) {