use Modern::Perl;
use C4::ILSDI::Services;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use C4::Context;
-use List::MoreUtils qw(any);
-use XML::Simple;
+use List::MoreUtils qw( any );
+use XML::Simple qw( XMLout );
use CGI qw ( -utf8 );
use Net::Netmask;
# List of optional arguments
my %optional = (
'Describe' => [],
- 'GetAvailability' => [ 'return_type', 'return_fmt' ],
+ 'GetAvailability' => [ 'return_type', 'return_fmt', 'language' ],
'GetRecords' => ['schema'],
'GetAuthorityRecords' => ['schema'],
'LookupPatron' => ['id_type'],
query => $cgi,
type => "opac",
authnotrequired => 1,
- debug => 1,
}
);
output_html_with_http_headers $cgi, $cookie, $template->output;
query => $cgi,
type => "opac",
authnotrequired => 1,
- debug => 1,
}
);
$template->param( scalar $cgi->param('verb') => 1 );