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

(-)a/cataloguing/additem.pl (-2 / +2 lines)
Lines 51-56 use C4::Members; Link Here
51
51
52
use MARC::File::XML;
52
use MARC::File::XML;
53
use URI::Escape qw( uri_escape_utf8 );
53
use URI::Escape qw( uri_escape_utf8 );
54
use Encode qw( encode_utf8 );
54
use MIME::Base64 qw( decode_base64url encode_base64url );
55
use MIME::Base64 qw( decode_base64url encode_base64url );
55
use List::Util qw( first );
56
use List::Util qw( first );
56
use List::MoreUtils qw( any uniq );
57
use List::MoreUtils qw( any uniq );
Lines 693-699 if ($op eq "additem") { Link Here
693
            my @more_subfields_xml = $input->multi_param("items.more_subfields_xml");
694
            my @more_subfields_xml = $input->multi_param("items.more_subfields_xml");
694
            my @unlinked_item_subfields;
695
            my @unlinked_item_subfields;
695
            for my $subfield ( uniq @more_subfields_xml ) {
696
            for my $subfield ( uniq @more_subfields_xml ) {
696
                my @v = $input->multi_param('items.more_subfields_xml_' . $subfield);
697
                my @v = $input->multi_param('items.more_subfields_xml_' . encode_utf8($subfield));
697
                push @unlinked_item_subfields, $subfield, $_ for @v;
698
                push @unlinked_item_subfields, $subfield, $_ for @v;
698
            }
699
            }
699
            if ( @unlinked_item_subfields ) {
700
            if ( @unlinked_item_subfields ) {
700
- 

Return to bug 27526