Lines 68-74
sub new {
Link Here
|
68 |
my $self = {}; |
68 |
my $self = {}; |
69 |
|
69 |
|
70 |
# get basic information from context |
70 |
# get basic information from context |
71 |
$self->{'dbname'} = C4::Context->config("database"); |
71 |
$self->{'dbname'} = C4::Context->config("database_test") || C4::Context->config("database"); |
72 |
$self->{'dbms'} = C4::Context->config("db_scheme") ? C4::Context->config("db_scheme") : "mysql"; |
72 |
$self->{'dbms'} = C4::Context->config("db_scheme") ? C4::Context->config("db_scheme") : "mysql"; |
73 |
$self->{'hostname'} = C4::Context->config("hostname"); |
73 |
$self->{'hostname'} = C4::Context->config("hostname"); |
74 |
$self->{'port'} = C4::Context->config("port"); |
74 |
$self->{'port'} = C4::Context->config("port"); |