@@ -, +, @@ "The *** 39999000💕001679 does not exist in the database." --- tools/batchMod.pl | 1 + tools/batch_delete_records.pl | 1 + tools/batch_record_modification.pl | 1 + 3 files changed, 3 insertions(+) --- a/tools/batchMod.pl +++ a/tools/batchMod.pl @@ -237,6 +237,7 @@ if ($op eq "show"){ my @contentlist; if ($filefh){ + binmode $filefh, ':encoding(UTF-8)'; while (my $content=<$filefh>){ $content =~ s/[\r\n]*$//; push @contentlist, $content if $content; --- a/tools/batch_delete_records.pl +++ a/tools/batch_delete_records.pl @@ -57,6 +57,7 @@ if ( $op eq 'form' ) { $recordtype = 'biblio'; } elsif ( my $uploadfile = $input->param('uploadfile') ) { # A file of id is given + binmode $uploadfile, ':encoding(UTF-8)'; while ( my $content = <$uploadfile> ) { next unless $content; $content =~ s/[\r\n]*$//; --- a/tools/batch_record_modification.pl +++ a/tools/batch_record_modification.pl @@ -105,6 +105,7 @@ if ( $op eq 'form' ) { $recordtype = 'biblio'; } elsif ( my $uploadfile = $input->param('uploadfile') ) { # A file of id is given + binmode $uploadfile, ':encoding(UTF-8)'; while ( my $content = <$uploadfile> ) { next unless $content; $content =~ s/[\r\n]*$//; --