Lines 46-58
foreach my $addcat ('S', 'PT') {
Link Here
|
46 |
diag("\nCreating biblio instance for testing."); |
46 |
diag("\nCreating biblio instance for testing."); |
47 |
my $bib = MARC::Record->new(); |
47 |
my $bib = MARC::Record->new(); |
48 |
my $title = 'Silence in the library'; |
48 |
my $title = 'Silence in the library'; |
49 |
$bib->append_fields( |
49 |
if( C4::Context->preference('marcflavour') eq 'UNIMARC' ) { |
50 |
MARC::Field->new('100', ' ', ' ', a => 'Moffat, Steven'), |
50 |
$bib->append_fields( |
51 |
MARC::Field->new('245', ' ', ' ', a => $title), |
51 |
MARC::Field->new('600', '', '1', a => 'Moffat, Steven'), |
52 |
); |
52 |
MARC::Field->new('200', '', '', a => $title), |
|
|
53 |
); |
54 |
} |
55 |
else { |
56 |
$bib->append_fields( |
57 |
MARC::Field->new('100', '', '', a => 'Moffat, Steven'), |
58 |
MARC::Field->new('245', '', '', a => $title), |
59 |
); |
60 |
} |
53 |
my ($bibnum, $bibitemnum); |
61 |
my ($bibnum, $bibitemnum); |
54 |
# If marcflavour is UNIMARC, AddBiblio fails and all following tests fail too. |
|
|
55 |
C4::Context->set_preference('marcflavour', 'MARC21'); |
56 |
($bibnum, $title, $bibitemnum) = AddBiblio($bib, ''); |
62 |
($bibnum, $title, $bibitemnum) = AddBiblio($bib, ''); |
57 |
|
63 |
|
58 |
# Helper item for that biblio. |
64 |
# Helper item for that biblio. |
59 |
- |
|
|