From 7c07e16ee15dc20368bfa84775541e3f776be1ab Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Wed, 22 Jul 2015 14:19:09 +0200 Subject: [PATCH] Bug 14588: Simplify merge_ajax.pl This script does not need a few modules: IO::File; CGI::Session; C4::UploadedFile. Warnings can be enabled (with Modern::Perl). Indirect object syntax replaced for CGI and CGI::Cookie. Moved the $reply line upwards (not needed twice anymore). Test plan: [1] Log in as staff user. Run the URL cataloguing/merge_ajax.pl. You should see the JSON reponse in the browser. [2] Logout. Run the URL again. Blank screen. [3] Go to addbooks.pl (Cataloging Search). Search something, select two biblios and click Merge selected, etc. Signed-off-by: Joonas Kylmala Signed-off-by: Mark Tompsett --- cataloguing/merge_ajax.pl | 22 +++++++++------------- 1 file changed, 9 insertions(+), 13 deletions(-) diff --git a/cataloguing/merge_ajax.pl b/cataloguing/merge_ajax.pl index 82278a7..aef7dcb 100755 --- a/cataloguing/merge_ajax.pl +++ b/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'); -- 2.1.4