Lines 2840-2845
sub EmbedItemsInMarcBiblio {
Link Here
|
2840 |
my ($marc, $biblionumber, $itemnumbers) = @_; |
2840 |
my ($marc, $biblionumber, $itemnumbers) = @_; |
2841 |
croak "No MARC record" unless $marc; |
2841 |
croak "No MARC record" unless $marc; |
2842 |
|
2842 |
|
|
|
2843 |
$itemnumbers = [] unless defined $itemnumbers; |
2844 |
|
2843 |
my $frameworkcode = GetFrameworkCode($biblionumber); |
2845 |
my $frameworkcode = GetFrameworkCode($biblionumber); |
2844 |
_strip_item_fields($marc, $frameworkcode); |
2846 |
_strip_item_fields($marc, $frameworkcode); |
2845 |
|
2847 |
|
2846 |
- |
|
|