Lines 38-50
t::lib::Mocks::mock_preference('opacisbd', $opac_template);
Link Here
|
38 |
|
38 |
|
39 |
my $record = MARC::Record->new(); |
39 |
my $record = MARC::Record->new(); |
40 |
$record->append_fields( |
40 |
$record->append_fields( |
41 |
MARC::Field->new('200', '', '', 'a' => 'Montains'), |
41 |
MARC::Field->new('200', '', '', 'a' => 'Mountains'), |
42 |
MARC::Field->new('200', '', '', 'f' => 'Keith Lye'), |
42 |
MARC::Field->new('200', '', '', 'f' => 'Keith Lye'), |
43 |
); |
43 |
); |
44 |
my ($bibnum, $title, $bibitemnum) = AddBiblio($record, ''); |
44 |
my ($bibnum, $title, $bibitemnum) = AddBiblio($record, ''); |
45 |
|
45 |
|
46 |
my $isbd = GetISBDView($bibnum); |
46 |
my $isbd = GetISBDView($bibnum); |
47 |
is($isbd, '<h2>Title : Montains by Keith Lye</h2>', 'ISBD is correct'); |
47 |
is($isbd, '<h2>Title : Mountains by Keith Lye</h2>', 'ISBD is correct'); |
48 |
|
48 |
|
49 |
my $opacisbd = GetISBDView($bibnum, 'opac'); |
49 |
my $opacisbd = GetISBDView($bibnum, 'opac'); |
50 |
is($opacisbd, '<h2>Title : Montains (Keith Lye)</h2>', 'OPAC ISBD is correct'); |
50 |
is($opacisbd, '<h2>Title : Mountains (Keith Lye)</h2>', 'OPAC ISBD is correct'); |
51 |
- |
|
|