Lines 21-27
use C4::Context;
Link Here
|
21 |
use C4::Biblio qw( AddBiblio ); |
21 |
use C4::Biblio qw( AddBiblio ); |
22 |
use Koha::Database; |
22 |
use Koha::Database; |
23 |
use Koha::Borrowers; |
23 |
use Koha::Borrowers; |
24 |
use Koha::Branches; |
24 |
use Koha::Libraries; |
25 |
use Koha::Item; |
25 |
use Koha::Item; |
26 |
|
26 |
|
27 |
use Test::More tests => 23; |
27 |
use Test::More tests => 23; |
Lines 34-40
$schema->storage->txn_begin();
Link Here
|
34 |
my $dbh = C4::Context->dbh; |
34 |
my $dbh = C4::Context->dbh; |
35 |
$dbh->{RaiseError} = 1; |
35 |
$dbh->{RaiseError} = 1; |
36 |
|
36 |
|
37 |
my @branches = Koha::Branches->search(); |
37 |
my @branches = Koha::Libraries->search(); |
38 |
my $borrower = Koha::Borrowers->search()->next(); |
38 |
my $borrower = Koha::Borrowers->search()->next(); |
39 |
|
39 |
|
40 |
my $biblio = MARC::Record->new(); |
40 |
my $biblio = MARC::Record->new(); |
41 |
- |
|
|