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