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