|
Lines 680-688
if ($op eq "additem") {
Link Here
|
| 680 |
if ( $c eq 'more_subfields_xml' ) { |
680 |
if ( $c eq 'more_subfields_xml' ) { |
| 681 |
my @more_subfields_xml = $input->multi_param("items.more_subfields_xml"); |
681 |
my @more_subfields_xml = $input->multi_param("items.more_subfields_xml"); |
| 682 |
my @unlinked_item_subfields; |
682 |
my @unlinked_item_subfields; |
| 683 |
for my $subfield ( @more_subfields_xml ) { |
683 |
for my $subfield ( uniq @more_subfields_xml ) { |
| 684 |
my $v = $input->param('items.more_subfields_xml_' . $subfield); |
684 |
my @v = $input->multi_param('items.more_subfields_xml_' . $subfield); |
| 685 |
push @unlinked_item_subfields, $subfield, $v; |
685 |
push @unlinked_item_subfields, $subfield, $_ for @v; |
| 686 |
} |
686 |
} |
| 687 |
if ( @unlinked_item_subfields ) { |
687 |
if ( @unlinked_item_subfields ) { |
| 688 |
my $marc = MARC::Record->new(); |
688 |
my $marc = MARC::Record->new(); |
| 689 |
- |
|
|