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