Lines 567-584
subtest 'C4::Biblio::EmbedItemsInMarcBiblio' => sub {
Link Here
|
567 |
my $record = C4::Biblio::GetMarcBiblio($biblionumber); |
567 |
my $record = C4::Biblio::GetMarcBiblio($biblionumber); |
568 |
warning_is { C4::Biblio::EmbedItemsInMarcBiblio() } |
568 |
warning_is { C4::Biblio::EmbedItemsInMarcBiblio() } |
569 |
{ carped => 'EmbedItemsInMarcBiblio: No MARC record passed' }, |
569 |
{ carped => 'EmbedItemsInMarcBiblio: No MARC record passed' }, |
570 |
'Should crap is no record passed.'; |
570 |
'Should carp no record is passed.'; |
571 |
|
571 |
|
572 |
C4::Biblio::EmbedItemsInMarcBiblio( $record, $biblionumber ); |
572 |
C4::Biblio::EmbedItemsInMarcBiblio({ |
|
|
573 |
marc_record => $record, |
574 |
biblionumber => $biblionumber }); |
573 |
my @items = $record->field($itemfield); |
575 |
my @items = $record->field($itemfield); |
574 |
is( scalar @items, $number_of_items, 'Should return all items' ); |
576 |
is( scalar @items, $number_of_items, 'Should return all items' ); |
575 |
|
577 |
|
576 |
C4::Biblio::EmbedItemsInMarcBiblio( $record, $biblionumber, |
578 |
C4::Biblio::EmbedItemsInMarcBiblio({ |
577 |
[ $itemnumbers[1], $itemnumbers[3] ] ); |
579 |
marc_record => $record, |
|
|
580 |
biblionumber => $biblionumber, |
581 |
item_numbers => [ $itemnumbers[1], $itemnumbers[3] ] }); |
578 |
@items = $record->field($itemfield); |
582 |
@items = $record->field($itemfield); |
579 |
is( scalar @items, 2, 'Should return all items present in the list' ); |
583 |
is( scalar @items, 2, 'Should return all items present in the list' ); |
580 |
|
584 |
|
581 |
C4::Biblio::EmbedItemsInMarcBiblio( $record, $biblionumber, undef, 1 ); |
585 |
C4::Biblio::EmbedItemsInMarcBiblio({ |
|
|
586 |
marc_record => $record, |
587 |
biblionumber => $biblionumber, |
588 |
opac => 1 }); |
582 |
@items = $record->field($itemfield); |
589 |
@items = $record->field($itemfield); |
583 |
is( scalar @items, $number_of_items, 'Should return all items for opac' ); |
590 |
is( scalar @items, $number_of_items, 'Should return all items for opac' ); |
584 |
|
591 |
|
Lines 586-598
subtest 'C4::Biblio::EmbedItemsInMarcBiblio' => sub {
Link Here
|
586 |
homebranch: ['$library1->{branchcode}']"; |
593 |
homebranch: ['$library1->{branchcode}']"; |
587 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
594 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
588 |
|
595 |
|
589 |
C4::Biblio::EmbedItemsInMarcBiblio( $record, $biblionumber ); |
596 |
C4::Biblio::EmbedItemsInMarcBiblio({ |
|
|
597 |
marc_record => $record, |
598 |
biblionumber => $biblionumber }); |
590 |
@items = $record->field($itemfield); |
599 |
@items = $record->field($itemfield); |
591 |
is( scalar @items, |
600 |
is( scalar @items, |
592 |
$number_of_items, |
601 |
$number_of_items, |
593 |
'Even with OpacHiddenItems set, all items should have been embedded' ); |
602 |
'Even with OpacHiddenItems set, all items should have been embedded' ); |
594 |
|
603 |
|
595 |
C4::Biblio::EmbedItemsInMarcBiblio( $record, $biblionumber, undef, 1 ); |
604 |
C4::Biblio::EmbedItemsInMarcBiblio({ |
|
|
605 |
marc_record => $record, |
606 |
biblionumber => $biblionumber, |
607 |
opac => 1 }); |
596 |
@items = $record->field($itemfield); |
608 |
@items = $record->field($itemfield); |
597 |
is( |
609 |
is( |
598 |
scalar @items, |
610 |
scalar @items, |
Lines 603-609
subtest 'C4::Biblio::EmbedItemsInMarcBiblio' => sub {
Link Here
|
603 |
$opachiddenitems = " |
615 |
$opachiddenitems = " |
604 |
homebranch: ['$library1->{branchcode}', '$library2->{branchcode}']"; |
616 |
homebranch: ['$library1->{branchcode}', '$library2->{branchcode}']"; |
605 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
617 |
t::lib::Mocks::mock_preference( 'OpacHiddenItems', $opachiddenitems ); |
606 |
C4::Biblio::EmbedItemsInMarcBiblio( $record, $biblionumber, undef, 1 ); |
618 |
C4::Biblio::EmbedItemsInMarcBiblio({ |
|
|
619 |
marc_record => $record, |
620 |
biblionumber => $biblionumber, |
621 |
opac => 1 }); |
607 |
@items = $record->field($itemfield); |
622 |
@items = $record->field($itemfield); |
608 |
is( |
623 |
is( |
609 |
scalar @items, |
624 |
scalar @items, |
610 |
- |
|
|