|
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 |
- |
|
|