X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcdr%2FImport.pm;h=dd9fc26d6dc4bf59fb2e6e24c2488dee189cca00;hp=7944e5b4e77544b7c1d6b6cbe93c5e918666197b;hb=fcce61390d750f98bd82e84d4664ae9c03202be2;hpb=83eb68cd59af488d57c23b653f44a7ae9aa4a753

diff --git a/FS/FS/cdr/Import.pm b/FS/FS/cdr/Import.pm
index 7944e5b4e..dd9fc26d6 100644
--- a/FS/FS/cdr/Import.pm
+++ b/FS/FS/cdr/Import.pm
@@ -4,7 +4,7 @@ use strict;
 use Date::Format 'time2str';
 use FS::UID qw(adminsuidsetup dbh);
 use FS::cdr;
-use DBI;
+use FS::DBI;
 use Getopt::Std;
 
 use vars qw( $DEBUG );
@@ -77,8 +77,8 @@ sub dbi_import {
   my $dsn = 'dbi:'. $dbd_type . $queries->{connect_type};
   $dsn .= ";database=$database" if $database;
 
-  my $dbi = DBI->connect($dsn, $opt{U}, $opt{P}) 
-    or die $DBI::errstr;
+  my $dbi = FS::DBI->connect($dsn, $opt{U}, $opt{P})
+    or die $FS::DBI::errstr;
 
   adminsuidsetup $user;