Bug 7298: (follow-up) fix uninitialized variable warning

[koha.git] / cataloguing / merge_ajax.pl

diff --git a/cataloguing/merge_ajax.pl b/cataloguing/merge_ajax.pl
index db4a430..26f0800 100755 (executable)
--- a/cataloguing/merge_ajax.pl
+++ b/cataloguing/merge_ajax.pl
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
+#use warnings; FIXME - Bug 2505
 
 # standard or CPAN modules used
 use IO::File;
@@ -15,7 +16,7 @@ use CGI::Cookie; # need to check cookies before
                  # having CGI parse the POST request
 
 my %cookies = fetch CGI::Cookie;
-my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => '1' });
+my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => 'edit_catalogue' });
 if ($auth_status ne "ok") {
     my $reply = CGI->new("");
     print $reply->header(-type => 'text/html');