tie my %options, 'Tie::IxHash', %{__PACKAGE__->sql_options};
delete $options{$_} for qw( table schema static primary_key );
tie my %options, 'Tie::IxHash', %{__PACKAGE__->sql_options};
delete $options{$_} for qw( table schema static primary_key );
sub export_getstatus {
my($self, $svc_acct, $htmlref, $hashref) = @_;
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;