View | Details | Raw Unified | Return to bug 27526
Collapse All | Expand All

(-)a/cataloguing/additem.pl (-4 / +3 lines)
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
- 

Return to bug 27526