diff options
author | Mitch Jackson <mitch@freeside.biz> | 2019-03-03 19:42:10 -0500 |
---|---|---|
committer | Mitch Jackson <mitch@freeside.biz> | 2019-03-03 19:53:52 -0500 |
commit | d417ecbed3d356919ae80317c33a9143e20646ef (patch) | |
tree | dae9e8e397baba64f43852eedbcd8cfd3250776c /FS/FS/part_export/acct_sql_status.pm | |
parent | 863879eae9bc840432b09750eae6e552e9bbe205 (diff) |
RT# 82942 Replace DBI->connect() with FS::DBI->connect()
Diffstat (limited to 'FS/FS/part_export/acct_sql_status.pm')
-rw-r--r-- | FS/FS/part_export/acct_sql_status.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/part_export/acct_sql_status.pm b/FS/FS/part_export/acct_sql_status.pm index 248105f..0e73431 100644 --- a/FS/FS/part_export/acct_sql_status.pm +++ b/FS/FS/part_export/acct_sql_status.pm @@ -5,6 +5,7 @@ use strict; use warnings; use vars qw( %info ); use Tie::IxHash; +use FS::DBI; tie my %options, 'Tie::IxHash', %{__PACKAGE__->sql_options}; delete $options{$_} for qw( table schema static primary_key ); @@ -33,8 +34,8 @@ sub _export_unsuspend {} sub export_getstatus { my($self, $svc_acct, $htmlref, $hashref) = @_; - my $dbh = DBI->connect( map $self->option($_), qw(datasrc username password) ) - or return "can't connect: ". $DBI::errstr; + my $dbh = FS::DBI->connect( map $self->option($_), qw(datasrc username password) ) + or return "can't connect: ". $FS::DBI::errstr; ### #vacation settings |