Bug 21122: Fix check-url-quick when utf8 characters in URL's

To test:

Make a record with a URL that has a UTF8 character, such as:
http://some.nonexistent.tld/MāoriWomenAotearoa.pdf
Run the check-url-quick.pl job, notice it dies at that URL
Apply this patch
Test again, it should work.

Signed-off-by: Owen Leonard <oleonard@myacpl.org>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit 10720d2a5c)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
(cherry picked from commit 1c988ed7fb)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
Liz Rea 2018-07-26 16:26:15 +12:00 committed by Fridolin Somers
parent fe341ea4d2
commit 211a188494
1 changed files with 2 additions and 0 deletions

View File

@ -24,6 +24,7 @@ use C4::Context;
use C4::Biblio;
use AnyEvent;
use AnyEvent::HTTP;
use Encode;
my ( $verbose, $help, $html ) = ( 0, 0, 0 );
my ( $host, $host_intranet ) = ( '', '' );
@ -96,6 +97,7 @@ sub check_all_url {
my $url = $field->subfield('u');
next unless $url;
$url = "$host/$url" unless $url =~ /^http/i;
$url = encode_utf8($url);
$count++;
http_request(
HEAD => $url,