use strict;
use warnings;
+use List::MoreUtils qw(any);
+
use C4::ILSDI::Services;
use C4::Auth;
use C4::Output;
# 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 {
}
# 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 => '<?xml version="1.0" encoding="UTF-8" ?>',
RootName => $service,