View | Details | Raw Unified | Return to bug 14385
Collapse All | Expand All

(-)a/C4/Biblio.pm (-4 / +15 lines)
Lines 1191-1197 sub GetMarcBiblio { Link Here
1191
1191
1192
        C4::Biblio::_koha_marc_update_bib_ids( $record, $frameworkcode, $biblionumber,
1192
        C4::Biblio::_koha_marc_update_bib_ids( $record, $frameworkcode, $biblionumber,
1193
            $biblioitemnumber );
1193
            $biblioitemnumber );
1194
        C4::Biblio::EmbedItemsInMarcBiblio( $record, $biblionumber, undef, $opac )
1194
        C4::Biblio::EmbedItemsInMarcBiblio({
1195
            marc_record  => $record,
1196
            biblionumber => $biblionumber,
1197
            opac => $opac })
1195
          if ($embeditems);
1198
          if ($embeditems);
1196
1199
1197
        return $record;
1200
        return $record;
Lines 2868-2874 sub ModZebra { Link Here
2868
2871
2869
=head2 EmbedItemsInMarcBiblio
2872
=head2 EmbedItemsInMarcBiblio
2870
2873
2871
    EmbedItemsInMarcBiblio($marc, $biblionumber, $itemnumbers, $opac);
2874
    EmbedItemsInMarcBiblio({
2875
        marc_record  => $marc,
2876
        biblionumber => $biblionumber,
2877
        item_numbers => $itemnumbers,
2878
        opac         => $opac });
2872
2879
2873
Given a MARC::Record object containing a bib record,
2880
Given a MARC::Record object containing a bib record,
2874
modify it to include the items attached to it as 9XX
2881
modify it to include the items attached to it as 9XX
Lines 2880-2890 If $opac is true, then opac-relevant suppressions are included. Link Here
2880
=cut
2887
=cut
2881
2888
2882
sub EmbedItemsInMarcBiblio {
2889
sub EmbedItemsInMarcBiblio {
2883
    my ($marc, $biblionumber, $itemnumbers, $opac) = @_;
2890
    my ($params) = @_;
2891
    my ($marc, $biblionumber, $itemnumbers, $opac) 
2892
    $marc = $params->{marc_record};
2884
    if ( !$marc ) {
2893
    if ( !$marc ) {
2885
        carp 'EmbedItemsInMarcBiblio: No MARC record passed';
2894
        carp 'EmbedItemsInMarcBiblio: No MARC record passed';
2886
        return;
2895
        return;
2887
    }
2896
    }
2897
    $biblionumber = $params->{biblionumber};
2898
    $itemnumbers = $params->{item_numbers};
2899
    $opac = $params->{opac};
2888
2900
2889
    $itemnumbers = [] unless defined $itemnumbers;
2901
    $itemnumbers = [] unless defined $itemnumbers;
2890
2902
2891
- 

Return to bug 14385