|
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"); |