|
Lines 569-575
subtest 'get_components_query' => sub {
Link Here
|
| 569 |
my $record = $biblio->metadata->record; |
569 |
my $record = $biblio->metadata->record; |
| 570 |
|
570 |
|
| 571 |
t::lib::Mocks::mock_preference( 'UseControlNumber', '0' ); |
571 |
t::lib::Mocks::mock_preference( 'UseControlNumber', '0' ); |
| 572 |
is($biblio->get_components_query, "Host-item:(Some boring read)", "UseControlNumber disabled"); |
572 |
is($biblio->get_components_query, 'Host-item:("Some boring read")', "UseControlNumber disabled"); |
| 573 |
|
573 |
|
| 574 |
t::lib::Mocks::mock_preference( 'UseControlNumber', '1' ); |
574 |
t::lib::Mocks::mock_preference( 'UseControlNumber', '1' ); |
| 575 |
my $marc_001_field = MARC::Field->new('001', $biblionumber); |
575 |
my $marc_001_field = MARC::Field->new('001', $biblionumber); |
| 576 |
- |
|
|