X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=opac%2Filsdi.pl;h=419c0f2101b347c1051c6ad45273f90bf24567e2;hb=3739e6bd6722af35a9f3f55af0e889036e56010e;hp=4f4b17736e029b0269e95fb2b0f9a36bfd13aa47;hpb=f3581a594e77ebd282be560d20775e2d7a16259f;p=koha.git diff --git a/opac/ilsdi.pl b/opac/ilsdi.pl index 4f4b17736e..419c0f2101 100755 --- a/opac/ilsdi.pl +++ b/opac/ilsdi.pl @@ -20,6 +20,8 @@ use strict; use warnings; +use List::MoreUtils qw(any); + use C4::ILSDI::Services; use C4::Auth; use C4::Output; @@ -206,7 +208,7 @@ if ( $service and any { $service eq $_ } @services ) { # GetAvailability is a special case, as it cannot use XML::Simple if ( $service eq "GetAvailability" ) { print CGI::header('text/xml'); - print C4::ILSDI::GetAvailability($cgi); + print C4::ILSDI::Services::GetAvailability($cgi); exit 0; } else { @@ -226,11 +228,11 @@ if ( $service and any { $service eq $_ } @services ) { } # Output XML by passing the hashref to XMLOut +binmode STDOUT, ':encoding(UTF-8)'; print CGI::header('-type'=>'text/xml', '-charset'=>'utf-8'); print XMLout( $out, noattr => 1, - noescape => 1, nosort => 1, xmldecl => '', RootName => $service,