sub nibblebill_insert {
my($datasrc, $username, $password, $phonenum, $amount) = @_;
sub nibblebill_insert {
my($datasrc, $username, $password, $phonenum, $amount) = @_;
- my $dbh = DBI->connect($datasrc, $username, $password) or die $DBI::errstr;
+ my $dbh = FS::DBI->connect($datasrc, $username, $password)
+ or die $FS::DBI::errstr;
sub nibblebill_adjust_cash {
my($datasrc, $username, $password, $phonenum, $amount) = @_;
sub nibblebill_adjust_cash {
my($datasrc, $username, $password, $phonenum, $amount) = @_;
- my $dbh = DBI->connect($datasrc, $username, $password) or die $DBI::errstr;
+ my $dbh = FS::DBI->connect($datasrc, $username, $password)
+ or die $FS::DBI::errstr;
sub export_getstatus {
my( $self, $svc_phone, $htmlref, $hashref ) = @_;
sub export_getstatus {
my( $self, $svc_phone, $htmlref, $hashref ) = @_;
- my $dbh = DBI->connect( map $self->option($_), qw( datasrc username password ) )
- or return $DBI::errstr;
+ my $dbh = FS::DBI->connect( map $self->option($_), qw( datasrc username password ) )
+ or return $FS::DBI::errstr;