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