Lines 31-38
use Koha::Patrons;
Link Here
|
31 |
my $dbh = ''; |
31 |
my $dbh = ''; |
32 |
|
32 |
|
33 |
# Start transaction |
33 |
# Start transaction |
34 |
my $database = Koha::Database->new(); |
34 |
my $schema = Koha::Database->new->schema; |
35 |
my $schema = $database->schema(); |
|
|
36 |
$schema->storage->txn_begin(); |
35 |
$schema->storage->txn_begin(); |
37 |
|
36 |
|
38 |
my $builder = t::lib::TestBuilder->new(); |
37 |
my $builder = t::lib::TestBuilder->new(); |
Lines 405-411
sub mock_net_ldap {
Link Here
|
405 |
'search', |
404 |
'search', |
406 |
sub { |
405 |
sub { |
407 |
|
406 |
|
408 |
$remaining_entry = 1 |
407 |
$remaining_entry = 1; |
409 |
|
408 |
|
410 |
return mock_net_ldap_search( |
409 |
return mock_net_ldap_search( |
411 |
{ |
410 |
{ |
Lines 502-507
sub is_admin_bind {
Link Here
|
502 |
return 0; |
501 |
return 0; |
503 |
} |
502 |
} |
504 |
|
503 |
|
505 |
$schema->storage->txn_rollback; |
504 |
$schema->storage->txn_rollback(); |
506 |
|
505 |
|
507 |
1; |
506 |
1; |
508 |
- |
|
|