Lines 200-230
subtest 'GetHiddenItemnumbers tests' => sub {
Link Here
|
200 |
"Hidden items list undef if OpacHiddenItems empty"); |
200 |
"Hidden items list undef if OpacHiddenItems empty"); |
201 |
|
201 |
|
202 |
# Blank spaces |
202 |
# Blank spaces |
203 |
t::lib::Mocks::mock_preference('OpacHiddenItems',' '); |
203 |
t::lib::Mocks::mock_preference('OpacHiddenItems', {}); |
204 |
ok( scalar GetHiddenItemnumbers( @items ) == 0, |
204 |
ok( scalar GetHiddenItemnumbers( @items ) == 0, |
205 |
"Hidden items list empty if OpacHiddenItems only contains blanks"); |
205 |
"Hidden items list empty if OpacHiddenItems only contains blanks"); |
206 |
|
206 |
|
207 |
# One variable / value |
207 |
# One variable / value |
208 |
$opachiddenitems = " |
208 |
$opachiddenitems = { withdrawn => [1] }; |
209 |
withdrawn: [1]"; |
|
|
210 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
209 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
211 |
@hidden = GetHiddenItemnumbers( @items ); |
210 |
@hidden = GetHiddenItemnumbers( @items ); |
212 |
ok( scalar @hidden == 1, "Only one hidden item"); |
211 |
ok( scalar @hidden == 1, "Only one hidden item"); |
213 |
is( $hidden[0], $item1_itemnumber, "withdrawn=1 is hidden"); |
212 |
is( $hidden[0], $item1_itemnumber, "withdrawn=1 is hidden"); |
214 |
|
213 |
|
215 |
# One variable, two values |
214 |
# One variable, two values |
216 |
$opachiddenitems = " |
215 |
$opachiddenitems = { withdrawn => [1,0] }; |
217 |
withdrawn: [1,0]"; |
|
|
218 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
216 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
219 |
@hidden = GetHiddenItemnumbers( @items ); |
217 |
@hidden = GetHiddenItemnumbers( @items ); |
220 |
ok( scalar @hidden == 2, "Two items hidden"); |
218 |
ok( scalar @hidden == 2, "Two items hidden"); |
221 |
is_deeply( \@hidden, \@itemnumbers, "withdrawn=1 and withdrawn=0 hidden"); |
219 |
is_deeply( \@hidden, \@itemnumbers, "withdrawn=1 and withdrawn=0 hidden"); |
222 |
|
220 |
|
223 |
# Two variables, a value each |
221 |
# Two variables, a value each |
224 |
$opachiddenitems = " |
222 |
$opachiddenitems = { |
225 |
withdrawn: [1] |
223 |
withdrawn => [1], |
226 |
homebranch: [$library2->{branchcode}] |
224 |
homebranch => [$library2->{branchcode}] |
227 |
"; |
225 |
}; |
228 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
226 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
229 |
@hidden = GetHiddenItemnumbers( @items ); |
227 |
@hidden = GetHiddenItemnumbers( @items ); |
230 |
ok( scalar @hidden == 2, "Two items hidden"); |
228 |
ok( scalar @hidden == 2, "Two items hidden"); |
Lines 616-623
subtest 'C4::Biblio::EmbedItemsInMarcBiblio' => sub {
Link Here
|
616 |
@items = $record->field($itemfield); |
614 |
@items = $record->field($itemfield); |
617 |
is( scalar @items, $number_of_items, 'Should return all items for opac' ); |
615 |
is( scalar @items, $number_of_items, 'Should return all items for opac' ); |
618 |
|
616 |
|
619 |
my $opachiddenitems = " |
617 |
my $opachiddenitems = { homebranch => [$library1->{branchcode}] }; |
620 |
homebranch: ['$library1->{branchcode}']"; |
|
|
621 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
618 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
622 |
|
619 |
|
623 |
C4::Biblio::EmbedItemsInMarcBiblio( $record, $biblionumber ); |
620 |
C4::Biblio::EmbedItemsInMarcBiblio( $record, $biblionumber ); |
Lines 634-641
subtest 'C4::Biblio::EmbedItemsInMarcBiblio' => sub {
Link Here
|
634 |
'For OPAC, the pref OpacHiddenItems should have been take into account. Only items with homebranch ne CPL should have been embedded' |
631 |
'For OPAC, the pref OpacHiddenItems should have been take into account. Only items with homebranch ne CPL should have been embedded' |
635 |
); |
632 |
); |
636 |
|
633 |
|
637 |
$opachiddenitems = " |
634 |
$opachiddenitems = { |
638 |
homebranch: ['$library1->{branchcode}', '$library2->{branchcode}']"; |
635 |
homebranch => [$library1->{branchcode}, $library2->{branchcode}] }; |
639 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
636 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
640 |
C4::Biblio::EmbedItemsInMarcBiblio( $record, $biblionumber, undef, 1 ); |
637 |
C4::Biblio::EmbedItemsInMarcBiblio( $record, $biblionumber, undef, 1 ); |
641 |
@items = $record->field($itemfield); |
638 |
@items = $record->field($itemfield); |
642 |
- |
|
|