|
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 692-698
if ($op eq "additem") {
Link Here
|
| 692 |
my @more_subfields_xml = $input->multi_param("items.more_subfields_xml"); |
693 |
my @more_subfields_xml = $input->multi_param("items.more_subfields_xml"); |
| 693 |
my @unlinked_item_subfields; |
694 |
my @unlinked_item_subfields; |
| 694 |
for my $subfield ( uniq @more_subfields_xml ) { |
695 |
for my $subfield ( uniq @more_subfields_xml ) { |
| 695 |
my @v = $input->multi_param('items.more_subfields_xml_' . $subfield); |
696 |
my @v = $input->multi_param('items.more_subfields_xml_' . encode_utf8($subfield)); |
| 696 |
push @unlinked_item_subfields, $subfield, $_ for @v; |
697 |
push @unlinked_item_subfields, $subfield, $_ for @v; |
| 697 |
} |
698 |
} |
| 698 |
if ( @unlinked_item_subfields ) { |
699 |
if ( @unlinked_item_subfields ) { |
| 699 |
- |
|
|