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