|
Lines 28-33
sub import {
Link Here
|
| 28 |
|
28 |
|
| 29 |
my ($fh, $filename) = tempfile('koha-conf.XXXXXX', TMPDIR => 1, UNLINK => 1); |
29 |
my ($fh, $filename) = tempfile('koha-conf.XXXXXX', TMPDIR => 1, UNLINK => 1); |
| 30 |
$xml->toFH($fh); |
30 |
$xml->toFH($fh); |
|
|
31 |
close $fh; |
| 31 |
|
32 |
|
| 32 |
$ENV{KOHA_CONF} = $filename; |
33 |
$ENV{KOHA_CONF} = $filename; |
| 33 |
|
34 |
|
|
Lines 45-51
sub import {
Link Here
|
| 45 |
my $user = C4::Context->config('user'); |
46 |
my $user = C4::Context->config('user'); |
| 46 |
my $pass = C4::Context->config('pass'); |
47 |
my $pass = C4::Context->config('pass'); |
| 47 |
|
48 |
|
| 48 |
say "Create test database..."; |
49 |
say "Create test database $database..."; |
| 49 |
|
50 |
|
| 50 |
my $dbh = DBI->connect("dbi:mysql:;host=$host;port=$port", $user, $pass, { |
51 |
my $dbh = DBI->connect("dbi:mysql:;host=$host;port=$port", $user, $pass, { |
| 51 |
RaiseError => 1, |
52 |
RaiseError => 1, |
| 52 |
- |
|
|