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