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 commit10720d2a5c) Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> (cherry picked from commit1c988ed7fb) Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
parent
fe341ea4d2
commit
211a188494
|
|
@ -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,
|
||||
|
|
|
|||
Loading…
Reference in New Issue