|
Lines 51-56
$bib->append_fields(
Link Here
|
| 51 |
MARC::Field->new('245', ' ', ' ', a => $title), |
51 |
MARC::Field->new('245', ' ', ' ', a => $title), |
| 52 |
); |
52 |
); |
| 53 |
my ($bibnum, $bibitemnum); |
53 |
my ($bibnum, $bibitemnum); |
|
|
54 |
# If marcflavour is UNIMARC, AddBiblio fails and all following tests fail too. |
| 55 |
C4::Context->set_preference('marcflavour', 'MARC21'); |
| 54 |
($bibnum, $title, $bibitemnum) = AddBiblio($bib, ''); |
56 |
($bibnum, $title, $bibitemnum) = AddBiblio($bib, ''); |
| 55 |
|
57 |
|
| 56 |
# Helper item for that biblio. |
58 |
# Helper item for that biblio. |
| 57 |
- |
|
|