Lines 1139-1145
sub GetMarcSubfieldStructureFromKohaField {
Link Here
|
1139 |
my $record = GetMarcBiblio({ |
1139 |
my $record = GetMarcBiblio({ |
1140 |
biblionumber => $biblionumber, |
1140 |
biblionumber => $biblionumber, |
1141 |
embed_items => $embeditems, |
1141 |
embed_items => $embeditems, |
1142 |
opac => $opac }); |
1142 |
opac => $opac, |
|
|
1143 |
hostItemsInfo => $hostItemsInfo }); |
1143 |
|
1144 |
|
1144 |
Returns MARC::Record representing a biblio record, or C<undef> if the |
1145 |
Returns MARC::Record representing a biblio record, or C<undef> if the |
1145 |
biblionumber doesn't exist. |
1146 |
biblionumber doesn't exist. |
Lines 1178-1183
sub GetMarcBiblio {
Link Here
|
1178 |
my $biblionumber = $params->{biblionumber}; |
1179 |
my $biblionumber = $params->{biblionumber}; |
1179 |
my $embeditems = $params->{embed_items} || 0; |
1180 |
my $embeditems = $params->{embed_items} || 0; |
1180 |
my $opac = $params->{opac} || 0; |
1181 |
my $opac = $params->{opac} || 0; |
|
|
1182 |
my $hostItemsInfo = $params->{hostItemsInfo} || 0; |
1181 |
|
1183 |
|
1182 |
if (not defined $biblionumber) { |
1184 |
if (not defined $biblionumber) { |
1183 |
carp 'GetMarcBiblio called with undefined biblionumber'; |
1185 |
carp 'GetMarcBiblio called with undefined biblionumber'; |
Lines 1205-1211
sub GetMarcBiblio {
Link Here
|
1205 |
|
1207 |
|
1206 |
C4::Biblio::_koha_marc_update_bib_ids( $record, $frameworkcode, $biblionumber, |
1208 |
C4::Biblio::_koha_marc_update_bib_ids( $record, $frameworkcode, $biblionumber, |
1207 |
$biblioitemnumber ); |
1209 |
$biblioitemnumber ); |
1208 |
C4::Biblio::EmbedItemsInMarcBiblio( $record, $biblionumber, undef, $opac ) |
1210 |
C4::Biblio::EmbedItemsInMarcBiblio( $record, $biblionumber, undef, $opac, $hostItemsInfo) |
1209 |
if ($embeditems); |
1211 |
if ($embeditems); |
1210 |
|
1212 |
|
1211 |
return $record; |
1213 |
return $record; |
Lines 2923-2929
sub ModZebra {
Link Here
|
2923 |
|
2925 |
|
2924 |
=head2 EmbedItemsInMarcBiblio |
2926 |
=head2 EmbedItemsInMarcBiblio |
2925 |
|
2927 |
|
2926 |
EmbedItemsInMarcBiblio($marc, $biblionumber, $itemnumbers, $opac); |
2928 |
EmbedItemsInMarcBiblio($marc, $biblionumber, $itemnumbers, $opac, $hostItemsInfo); |
2927 |
|
2929 |
|
2928 |
Given a MARC::Record object containing a bib record, |
2930 |
Given a MARC::Record object containing a bib record, |
2929 |
modify it to include the items attached to it as 9XX |
2931 |
modify it to include the items attached to it as 9XX |
Lines 2935-2945
If $opac is true, then opac-relevant suppressions are included.
Link Here
|
2935 |
=cut |
2937 |
=cut |
2936 |
|
2938 |
|
2937 |
sub EmbedItemsInMarcBiblio { |
2939 |
sub EmbedItemsInMarcBiblio { |
2938 |
my ($marc, $biblionumber, $itemnumbers, $opac) = @_; |
2940 |
my ($marc, $biblionumber, $itemnumbers, $opac, $hostItemsInfo) = @_; |
2939 |
if ( !$marc ) { |
2941 |
if ( !$marc ) { |
2940 |
carp 'EmbedItemsInMarcBiblio: No MARC record passed'; |
2942 |
carp 'EmbedItemsInMarcBiblio: No MARC record passed'; |
2941 |
return; |
2943 |
return; |
2942 |
} |
2944 |
} |
|
|
2945 |
|
2943 |
|
2946 |
|
2944 |
$itemnumbers = [] unless defined $itemnumbers; |
2947 |
$itemnumbers = [] unless defined $itemnumbers; |
2945 |
|
2948 |
|
Lines 2961-2966
sub EmbedItemsInMarcBiblio {
Link Here
|
2961 |
my $i = $opachiddenitems ? C4::Items::GetItem($itemnumber) : undef; |
2964 |
my $i = $opachiddenitems ? C4::Items::GetItem($itemnumber) : undef; |
2962 |
push @items, { itemnumber => $itemnumber, item => $i }; |
2965 |
push @items, { itemnumber => $itemnumber, item => $i }; |
2963 |
} |
2966 |
} |
|
|
2967 |
|
2968 |
if ($hostItemsInfo){ |
2969 |
my $record = GetMarcBiblio({ biblionumber => $biblionumber }); |
2970 |
my @hostitems = C4::Items::GetHostItem($record); |
2971 |
my $itemnumber = 0; |
2972 |
foreach my $item (@hostitems){ |
2973 |
$itemnumber = $item->{itemnumber} if ($item);; |
2974 |
push @items, { itemnumber => $itemnumber, item => $item }; |
2975 |
} |
2976 |
} |
2977 |
|
2964 |
my @hiddenitems = |
2978 |
my @hiddenitems = |
2965 |
$opachiddenitems |
2979 |
$opachiddenitems |
2966 |
? C4::Items::GetHiddenItemnumbers( map { $_->{item} } @items ) |
2980 |
? C4::Items::GetHiddenItemnumbers( map { $_->{item} } @items ) |