diff options
Diffstat (limited to 'FS/FS/cust_svc.pm')
| -rw-r--r-- | FS/FS/cust_svc.pm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm index 9e16142e0..cc5f4bf1d 100644 --- a/FS/FS/cust_svc.pm +++ b/FS/FS/cust_svc.pm @@ -17,6 +17,7 @@ use FS::part_export; use FS::cdr; use FS::UI::Web; use FS::export_cust_svc; +use FS::DBI; #most FS::svc_ classes are autoloaded in svc_x emthod use FS::svc_acct; #this one is used in the cache stuff @@ -857,9 +858,9 @@ sub seconds_since_sqlradacct { warn "$mes connecting to sqlradius database\n" if $DEBUG; - my $dbh = DBI->connect( map { $part_export->option($_) } + my $dbh = FS::DBI->connect( map { $part_export->option($_) } qw(datasrc username password) ) - or die "can't connect to sqlradius database: ". $DBI::errstr; + or die "can't connect to sqlradius database: ". $FS::DBI::errstr; warn "$mes connected to sqlradius database\n" if $DEBUG; @@ -1002,9 +1003,9 @@ sub attribute_since_sqlradacct { warn "$mes connecting to sqlradius database\n" if $DEBUG; - my $dbh = DBI->connect( map { $part_export->option($_) } + my $dbh = FS::DBI->connect( map { $part_export->option($_) } qw(datasrc username password) ) - or die "can't connect to sqlradius database: ". $DBI::errstr; + or die "can't connect to sqlradius database: ". $FS::DBI::errstr; warn "$mes connected to sqlradius database\n" if $DEBUG; @@ -1073,9 +1074,9 @@ sub attribute_last_sqlradacct { warn "$mes connecting to sqlradius database\n" if $DEBUG; - my $dbh = DBI->connect( map { $part_export->option($_) } + my $dbh = FS::DBI->connect( map { $part_export->option($_) } qw(datasrc username password) ) - or die "can't connect to sqlradius database: ". $DBI::errstr; + or die "can't connect to sqlradius database: ". $FS::DBI::errstr; warn "$mes connected to sqlradius database\n" if $DEBUG; |