Lines 34-39
use Koha::Database;
Link Here
|
34 |
use Koha::Biblio; |
34 |
use Koha::Biblio; |
35 |
use Koha::Biblioitem; |
35 |
use Koha::Biblioitem; |
36 |
use Koha::Exporter::Record; |
36 |
use Koha::Exporter::Record; |
|
|
37 |
use Koha::Biblio::Metadatas; |
37 |
|
38 |
|
38 |
my $schema = Koha::Database->new->schema; |
39 |
my $schema = Koha::Database->new->schema; |
39 |
$schema->storage->txn_begin; |
40 |
$schema->storage->txn_begin; |
Lines 58-64
$biblio_2->append_fields(
Link Here
|
58 |
my ($biblionumber_2, $biblioitemnumber_2) = AddBiblio($biblio_2, ''); |
59 |
my ($biblionumber_2, $biblioitemnumber_2) = AddBiblio($biblio_2, ''); |
59 |
|
60 |
|
60 |
my $bad_biblio = Koha::Biblio->new()->store(); |
61 |
my $bad_biblio = Koha::Biblio->new()->store(); |
61 |
my $bad_biblioitem = Koha::Biblioitem->new( { biblionumber => $bad_biblio->id, marcxml => 'something wrong' } )->store(); |
62 |
my $bad_biblioitem = Koha::Biblioitem->new( { biblionumber => $bad_biblio->id, format => 'marcxml' } )-> metadata('something wrong')->store(); |
62 |
my $bad_biblionumber = $bad_biblio->id; |
63 |
my $bad_biblionumber = $bad_biblio->id; |
63 |
|
64 |
|
64 |
my $builder = t::lib::TestBuilder->new; |
65 |
my $builder = t::lib::TestBuilder->new; |
65 |
- |
|
|