|
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::Patrons; |
23 |
use Koha::Patrons; |
| 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::Patrons->search()->next(); |
38 |
my $borrower = Koha::Patrons->search()->next(); |
| 39 |
|
39 |
|
| 40 |
my $biblio = MARC::Record->new(); |
40 |
my $biblio = MARC::Record->new(); |
| 41 |
- |
|
|