projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
#!/usr/bin/perl
use strict;
+#use warnings; FIXME - Bug 2505
# standard or CPAN modules used
use IO::File;
# 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;
# 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');
if ($auth_status ne "ok") {
my $reply = CGI->new("");
print $reply->header(-type => 'text/html');