Lines 670-678
if ($op eq "additem") {
Link Here
|
670 |
if ( $c eq 'more_subfields_xml' ) { |
670 |
if ( $c eq 'more_subfields_xml' ) { |
671 |
my @more_subfields_xml = $input->multi_param("items.more_subfields_xml"); |
671 |
my @more_subfields_xml = $input->multi_param("items.more_subfields_xml"); |
672 |
my @unlinked_item_subfields; |
672 |
my @unlinked_item_subfields; |
673 |
for my $subfield ( @more_subfields_xml ) { |
673 |
for my $subfield ( uniq @more_subfields_xml ) { |
674 |
my $v = $input->param('items.more_subfields_xml_' . $subfield); |
674 |
my @v = $input->multi_param('items.more_subfields_xml_' . $subfield); |
675 |
push @unlinked_item_subfields, $subfield, $v; |
675 |
push @unlinked_item_subfields, $subfield, $_ for @v; |
676 |
} |
676 |
} |
677 |
if ( @unlinked_item_subfields ) { |
677 |
if ( @unlinked_item_subfields ) { |
678 |
my $marc = MARC::Record->new(); |
678 |
my $marc = MARC::Record->new(); |
679 |
- |
|
|