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