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