Lines 203-234
subtest 'GetHiddenItemnumbers tests' => sub {
Link Here
|
203 |
ok( !defined( GetHiddenItemnumbers( { items => \@items } ) ), |
203 |
ok( !defined( GetHiddenItemnumbers( { items => \@items } ) ), |
204 |
"Hidden items list undef if OpacHiddenItems empty"); |
204 |
"Hidden items list undef if OpacHiddenItems empty"); |
205 |
|
205 |
|
206 |
# Blank spaces |
206 |
# Empty ref |
207 |
t::lib::Mocks::mock_preference('OpacHiddenItems',' '); |
207 |
t::lib::Mocks::mock_preference('OpacHiddenItems', {}); |
208 |
ok( scalar GetHiddenItemnumbers( { items => \@items } ) == 0, |
208 |
ok( scalar GetHiddenItemnumbers( { items => \@items } ) == 0, |
209 |
"Hidden items list empty if OpacHiddenItems only contains blanks"); |
209 |
"Hidden items list empty if OpacHiddenItems only contains blanks"); |
210 |
|
210 |
|
211 |
# One variable / value |
211 |
# One variable / value |
212 |
$opachiddenitems = " |
212 |
$opachiddenitems = { withdrawn => [1] }; |
213 |
withdrawn: [1]"; |
|
|
214 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
213 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
215 |
@hidden = GetHiddenItemnumbers( { items => \@items } ); |
214 |
@hidden = GetHiddenItemnumbers( { items => \@items } ); |
216 |
ok( scalar @hidden == 1, "Only one hidden item"); |
215 |
ok( scalar @hidden == 1, "Only one hidden item"); |
217 |
is( $hidden[0], $item1_itemnumber, "withdrawn=1 is hidden"); |
216 |
is( $hidden[0], $item1_itemnumber, "withdrawn=1 is hidden"); |
218 |
|
217 |
|
219 |
# One variable, two values |
218 |
# One variable, two values |
220 |
$opachiddenitems = " |
219 |
$opachiddenitems = { withdrawn => [1,0] }; |
221 |
withdrawn: [1,0]"; |
|
|
222 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
220 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
223 |
@hidden = GetHiddenItemnumbers( { items => \@items } ); |
221 |
@hidden = GetHiddenItemnumbers( { items => \@items } ); |
224 |
ok( scalar @hidden == 2, "Two items hidden"); |
222 |
ok( scalar @hidden == 2, "Two items hidden"); |
225 |
is_deeply( \@hidden, \@itemnumbers, "withdrawn=1 and withdrawn=0 hidden"); |
223 |
is_deeply( \@hidden, \@itemnumbers, "withdrawn=1 and withdrawn=0 hidden"); |
226 |
|
224 |
|
227 |
# Two variables, a value each |
225 |
# Two variables, a value each |
228 |
$opachiddenitems = " |
226 |
$opachiddenitems = { |
229 |
withdrawn: [1] |
227 |
withdrawn => [1], |
230 |
homebranch: [$library2->{branchcode}] |
228 |
homebranch => [$library2->{branchcode}] |
231 |
"; |
229 |
}; |
232 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
230 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
233 |
@hidden = GetHiddenItemnumbers( { items => \@items } ); |
231 |
@hidden = GetHiddenItemnumbers( { items => \@items } ); |
234 |
ok( scalar @hidden == 2, "Two items hidden"); |
232 |
ok( scalar @hidden == 2, "Two items hidden"); |
Lines 671-678
subtest 'C4::Biblio::EmbedItemsInMarcBiblio' => sub {
Link Here
|
671 |
@items = $record->field($itemfield); |
669 |
@items = $record->field($itemfield); |
672 |
is( scalar @items, $number_of_items, 'Should return all items for opac' ); |
670 |
is( scalar @items, $number_of_items, 'Should return all items for opac' ); |
673 |
|
671 |
|
674 |
my $opachiddenitems = " |
672 |
my $opachiddenitems = { homebranch => [$library1->{branchcode}] }; |
675 |
homebranch: ['$library1->{branchcode}']"; |
|
|
676 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
673 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
677 |
|
674 |
|
678 |
C4::Biblio::EmbedItemsInMarcBiblio({ |
675 |
C4::Biblio::EmbedItemsInMarcBiblio({ |
Lines 694-701
subtest 'C4::Biblio::EmbedItemsInMarcBiblio' => sub {
Link Here
|
694 |
'For OPAC, the pref OpacHiddenItems should have been take into account. Only items with homebranch ne CPL should have been embedded' |
691 |
'For OPAC, the pref OpacHiddenItems should have been take into account. Only items with homebranch ne CPL should have been embedded' |
695 |
); |
692 |
); |
696 |
|
693 |
|
697 |
$opachiddenitems = " |
694 |
$opachiddenitems = { |
698 |
homebranch: ['$library1->{branchcode}', '$library2->{branchcode}']"; |
695 |
homebranch => [$library1->{branchcode}, $library2->{branchcode}] }; |
699 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
696 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
700 |
C4::Biblio::EmbedItemsInMarcBiblio({ |
697 |
C4::Biblio::EmbedItemsInMarcBiblio({ |
701 |
marc_record => $record, |
698 |
marc_record => $record, |
702 |
- |
|
|