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