X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=authorities%2Fmerge_ajax.pl;h=b4e489be5e13d191ec52216872b95f633ab3e1a4;hb=c66589555a270b1be5c51dfa9faae77b0a26c60e;hp=6ed427891c28c6e954f0757d0a492519f9b70ef6;hpb=843c4a4bae760754d96867d2596bc78651910c8e;p=srvgit

diff --git a/authorities/merge_ajax.pl b/authorities/merge_ajax.pl
index 6ed427891c..b4e489be5e 100755
--- a/authorities/merge_ajax.pl
+++ b/authorities/merge_ajax.pl
@@ -4,14 +4,14 @@ use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use CGI::Cookie; # need to check cookies before CGI parses the POST request
-use JSON;
+use JSON qw( encode_json );
 
 use C4::Context;
-use C4::Auth qw/check_cookie_auth/;
-use C4::AuthoritiesMarc;
+use C4::Auth qw( check_cookie_auth );
+use C4::AuthoritiesMarc qw( GetTagsLabels );
 
 my %cookies = CGI::Cookie->fetch;
-my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => 'edit_catalogue' });
+my ($auth_status) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => 'edit_catalogue' });
 my $reply = CGI->new;
 if ($auth_status ne "ok") {
     print $reply->header(-type => 'text/html');