@@ -, +, @@ IO::File; CGI::Session; C4::UploadedFile. You should see the JSON reponse in the browser. biblios and click Merge selected, etc. --- cataloguing/merge_ajax.pl | 22 +++++++++------------- 1 file changed, 9 insertions(+), 13 deletions(-) --- a/cataloguing/merge_ajax.pl +++ a/cataloguing/merge_ajax.pl @@ -1,29 +1,25 @@ #!/usr/bin/perl -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; -# standard or CPAN modules used -use IO::File; use CGI qw ( -utf8 ); -use CGI::Session; +use CGI::Cookie; # need to check cookies before CGI parses the POST request +use JSON; + use C4::Context; use C4::Biblio; use C4::Auth qw/check_cookie_auth/; -use C4::UploadedFile; -use JSON; -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 => 'edit_catalogue' }); +my %cookies = CGI::Cookie->fetch; +my ( $auth_status, $sessionID ) = check_cookie_auth( + $cookies{'CGISESSID'}->value, { editcatalogue => 'edit_catalogue' }, +); +my $reply = CGI::->new; if ($auth_status ne "ok") { - my $reply = CGI->new(""); print $reply->header(-type => 'text/html'); exit 0; } -my $reply = new CGI; my $framework = $reply->param('frameworkcode'); my $tagslib = GetMarcStructure(1, $framework); print $reply->header(-type => 'text/html'); --