#
use strict;
+use warnings;
+
use CGI;
use C4::Auth qw/check_api_auth/;
use XML::Simple;
# web browser, but instead should be stored and submitted by biblios.
-my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 1} );
+my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 'edit_catalogue'} );
if ($status eq "ok") {
print $query->header(-type => 'text/xml', cookie => $cookie);