Lines 33-38
use C4::Context;
Link Here
|
33 |
use Koha::Database; |
33 |
use Koha::Database; |
34 |
use Koha::Biblio; |
34 |
use Koha::Biblio; |
35 |
use Koha::Biblioitem; |
35 |
use Koha::Biblioitem; |
|
|
36 |
use Koha::Biblioitems; |
36 |
use Koha::Exporter::Record; |
37 |
use Koha::Exporter::Record; |
37 |
use Koha::Biblio::Metadata; |
38 |
use Koha::Biblio::Metadata; |
38 |
|
39 |
|
Lines 59-66
$biblio_2->append_fields(
Link Here
|
59 |
my ($biblionumber_2, $biblioitemnumber_2) = AddBiblio($biblio_2, ''); |
60 |
my ($biblionumber_2, $biblioitemnumber_2) = AddBiblio($biblio_2, ''); |
60 |
|
61 |
|
61 |
my $bad_biblio = Koha::Biblio->new()->store(); |
62 |
my $bad_biblio = Koha::Biblio->new()->store(); |
62 |
Koha::Biblio::Metadata->new( { biblionumber => $bad_biblio->id, format => 'marcxml', metadata => 'something wrong', marcflavour => C4::Context->preference('marcflavour') } )->store(); |
|
|
63 |
my $bad_biblionumber = $bad_biblio->id; |
63 |
my $bad_biblionumber = $bad_biblio->id; |
|
|
64 |
my $bad_biblioitem = Koha::Biblioitem->new({biblionumber => $bad_biblionumber})->store(); |
65 |
Koha::Biblio::Metadata->new( { biblioitemnumber => $bad_biblioitem->biblioitemnumber, biblionumber => $bad_biblio->id, format => 'marcxml', metadata => 'something wrong', marcflavour => C4::Context->preference('marcflavour') } )->store(); |
64 |
|
66 |
|
65 |
my $builder = t::lib::TestBuilder->new; |
67 |
my $builder = t::lib::TestBuilder->new; |
66 |
my $item_1_1 = $builder->build({ |
68 |
my $item_1_1 = $builder->build({ |
67 |
- |
|
|