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