|
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 673-680
subtest 'C4::Biblio::EmbedItemsInMarcBiblio' => sub {
Link Here
|
| 673 |
@items = $record->field($itemfield); |
671 |
@items = $record->field($itemfield); |
| 674 |
is( scalar @items, $number_of_items, 'Should return all items for opac' ); |
672 |
is( scalar @items, $number_of_items, 'Should return all items for opac' ); |
| 675 |
|
673 |
|
| 676 |
my $opachiddenitems = " |
674 |
my $opachiddenitems = { homebranch => [$library1->{branchcode}] }; |
| 677 |
homebranch: ['$library1->{branchcode}']"; |
|
|
| 678 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
675 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
| 679 |
|
676 |
|
| 680 |
C4::Biblio::EmbedItemsInMarcBiblio({ |
677 |
C4::Biblio::EmbedItemsInMarcBiblio({ |
|
Lines 696-703
subtest 'C4::Biblio::EmbedItemsInMarcBiblio' => sub {
Link Here
|
| 696 |
'For OPAC, the pref OpacHiddenItems should have been take into account. Only items with homebranch ne CPL should have been embedded' |
693 |
'For OPAC, the pref OpacHiddenItems should have been take into account. Only items with homebranch ne CPL should have been embedded' |
| 697 |
); |
694 |
); |
| 698 |
|
695 |
|
| 699 |
$opachiddenitems = " |
696 |
$opachiddenitems = { |
| 700 |
homebranch: ['$library1->{branchcode}', '$library2->{branchcode}']"; |
697 |
homebranch => [$library1->{branchcode}, $library2->{branchcode}] }; |
| 701 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
698 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
| 702 |
C4::Biblio::EmbedItemsInMarcBiblio({ |
699 |
C4::Biblio::EmbedItemsInMarcBiblio({ |
| 703 |
marc_record => $record, |
700 |
marc_record => $record, |
| 704 |
- |
|
|