Lines 23-32
use Test::MockObject;
Link Here
|
23 |
use Test::Warn; |
23 |
use Test::Warn; |
24 |
|
24 |
|
25 |
use C4::Context; |
25 |
use C4::Context; |
|
|
26 |
use Koha::Database; |
26 |
|
27 |
|
27 |
my $dbh = C4::Context->dbh; |
28 |
my $dbh = C4::Context->dbh; |
28 |
# Start transaction |
29 |
# Start transaction |
29 |
$dbh->{ AutoCommit } = 0; |
30 |
my $database = Koha::Database->new(); |
|
|
31 |
my $schema = $database->schema(); |
32 |
$schema->storage->txn_begin(); |
30 |
$dbh->{ RaiseError } = 1; |
33 |
$dbh->{ RaiseError } = 1; |
31 |
|
34 |
|
32 |
# Variables controlling LDAP server config |
35 |
# Variables controlling LDAP server config |
Lines 374-379
sub reload_ldap_module {
Link Here
|
374 |
C4::Auth_with_ldap->import; |
377 |
C4::Auth_with_ldap->import; |
375 |
} |
378 |
} |
376 |
|
379 |
|
377 |
$dbh->rollback; |
380 |
$schema->storage->txn_rollback(); |
378 |
|
381 |
|
379 |
1; |
382 |
1; |
380 |
- |
|
|