projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 82942 Replace DBI->connect() with FS::DBI->connect()
[freeside.git]
/
FS
/
FS
/
cust_svc.pm
diff --git
a/FS/FS/cust_svc.pm
b/FS/FS/cust_svc.pm
index
9e16142
..
cc5f4bf
100644
(file)
--- 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::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
#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;
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) )
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;
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;
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) )
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;
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;
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) )
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;
warn "$mes connected to sqlradius database\n"
if $DEBUG;