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