View | Details | Raw Unified | Return to bug 8918
Collapse All | Expand All

(-)a/t/db_dependent/Reserves.t (-7 / +12 lines)
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
- 

Return to bug 8918