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