Lines 32-37
use C4::Biblio;
Link Here
|
32 |
use C4::Context; |
32 |
use C4::Context; |
33 |
use Koha::Database; |
33 |
use Koha::Database; |
34 |
use Koha::Exporter::Record; |
34 |
use Koha::Exporter::Record; |
|
|
35 |
use Koha::Biblio::Metadatas; |
35 |
|
36 |
|
36 |
my $schema = Koha::Database->new->schema; |
37 |
my $schema = Koha::Database->new->schema; |
37 |
$schema->storage->txn_begin; |
38 |
$schema->storage->txn_begin; |
Lines 56-62
$biblio_2->append_fields(
Link Here
|
56 |
my ($biblionumber_2, $biblioitemnumber_2) = AddBiblio($biblio_2, ''); |
57 |
my ($biblionumber_2, $biblioitemnumber_2) = AddBiblio($biblio_2, ''); |
57 |
|
58 |
|
58 |
my ($bad_biblionumber, $bad_biblioitemnumber) = AddBiblio($biblio_1, ''); |
59 |
my ($bad_biblionumber, $bad_biblioitemnumber) = AddBiblio($biblio_1, ''); |
59 |
Koha::Biblioitems->find( $bad_biblionumber )->marcxml("something wrong")->store; |
60 |
Koha::Biblio::Metadatas->find( { biblionumber => $bad_biblionumber, format => 'marcxml' } )->metadata("something wrong")->store; |
60 |
|
61 |
|
61 |
my $builder = t::lib::TestBuilder->new; |
62 |
my $builder = t::lib::TestBuilder->new; |
62 |
my $item_1_1 = $builder->build({ |
63 |
my $item_1_1 = $builder->build({ |
63 |
- |
|
|