@@ -, +, @@ --- acqui/check_duplicate_barcode_ajax.pl | 2 +- authorities/merge_ajax.pl | 12 +++++------- opac/opac-patron-image.pl | 2 +- opac/opac-ratings-ajax.pl | 2 +- opac/opac-tags.pl | 2 +- tags/review.pl | 2 +- tools/background-job-progress.pl | 6 +++--- tools/upload-file-progress.pl | 5 ++--- tools/upload-file.pl | 2 +- 9 files changed, 16 insertions(+), 19 deletions(-) --- a/acqui/check_duplicate_barcode_ajax.pl +++ a/acqui/check_duplicate_barcode_ajax.pl @@ -30,7 +30,7 @@ my $input = new CGI; print $input->header('application/json'); # Check the user's permissions -my %cookies = fetch CGI::Cookie; +my %cookies = CGI::Cookie->fetch; my $sessid = $cookies{'CGISESSID'}->value || $input->param('CGISESSID'); my ($auth_status, $auth_sessid) = C4::Auth::check_cookie_auth($sessid, {acquisition => 'order_manage'}); if ($auth_status ne "ok") { --- a/authorities/merge_ajax.pl +++ a/authorities/merge_ajax.pl @@ -4,23 +4,21 @@ use strict; use warnings; 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::Auth qw/check_cookie_auth/; use C4::AuthoritiesMarc; -use JSON; -use CGI::Cookie; # need to check cookies before - # having CGI parse the POST request -my %cookies = fetch CGI::Cookie; +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 = GetTagsLabels(1, $framework); print $reply->header(-type => 'text/html'); --- a/opac/opac-patron-image.pl +++ a/opac/opac-patron-image.pl @@ -33,7 +33,7 @@ unless (C4::Context->preference('OPACpatronimages')) { } my $needed_flags; -my %cookies = fetch CGI::Cookie; +my %cookies = CGI::Cookie->fetch; my $sessid = $cookies{'CGISESSID'}->value; my ($auth_status, $auth_sessid) = check_cookie_auth($sessid, $needed_flags); my $borrowernumber = C4::Context->userenv->{'number'}; --- a/opac/opac-ratings-ajax.pl +++ a/opac/opac-ratings-ajax.pl @@ -106,7 +106,7 @@ exit; # a ratings specific ajax return sub, returns CGI object, and an 'auth_success' value sub ajax_auth_cgi { my $needed_flags = shift; - my %cookies = fetch CGI::Cookie; + my %cookies = CGI::Cookie->fetch; my $input = CGI->new; my $sessid = $cookies{'CGISESSID'}->value || $input->param('CGISESSID'); my ( $auth_status, $auth_sessid ) = --- a/opac/opac-tags.pl +++ a/opac/opac-tags.pl @@ -57,7 +57,7 @@ my @globalErrorIndexes = (); sub ajax_auth_cgi { # returns CGI object my $needed_flags = shift; - my %cookies = fetch CGI::Cookie; + my %cookies = CGI::Cookie->fetch; my $input = CGI->new; my $sessid = $cookies{'CGISESSID'}->value; my ($auth_status, $auth_sessid) = check_cookie_auth($sessid, $needed_flags); --- a/tags/review.pl +++ a/tags/review.pl @@ -39,7 +39,7 @@ my $needed_flags = { tools => 'moderate_tags' }; # FIXME: replace when more spec sub ajax_auth_cgi ($) { # returns CGI object my $needed_flags = shift; - my %cookies = fetch CGI::Cookie; + my %cookies = CGI::Cookie->fetch; my $input = CGI->new; my $sessid = $cookies{'CGISESSID'}->value; my ($auth_status, $auth_sessid) = check_cookie_auth($sessid, $needed_flags); --- a/tools/background-job-progress.pl +++ a/tools/background-job-progress.pl @@ -30,8 +30,8 @@ use C4::BackgroundJob; use CGI::Cookie; # need to check cookies before # having CGI parse the POST request -my $input = new CGI; -my %cookies = fetch CGI::Cookie; +my $input = CGI::->new; +my %cookies = CGI::Cookie->fetch; my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { tools => '*' }); if ($auth_status ne "ok") { my $reply = CGI->new(""); @@ -51,7 +51,7 @@ if (defined $job) { $job_status = $job->status(); } -my $reply = CGI->new(""); +my $reply = CGI::->new; print $reply->header(-type => 'text/html'); # response will be sent back as JSON print '{"progress":"' . $reported_progress . '","job_size":"' . $job_size . '","job_status":"' . $job_status . '"}'; --- a/tools/upload-file-progress.pl +++ a/tools/upload-file-progress.pl @@ -36,7 +36,7 @@ my $flags_required = [ {tools => 'upload_local_cover_images'}, ]; -my %cookies = fetch CGI::Cookie; +my %cookies = CGI::Cookie->fetch; my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value); @@ -47,8 +47,8 @@ foreach my $flag_required ( @{$flags_required} ) { } } +my $reply = CGI::->new; if ($auth_failure) { - my $reply = CGI->new(""); print $reply->header(-type => 'text/html'); print '{"progress":"0"}'; exit 0; @@ -56,7 +56,6 @@ if ($auth_failure) { my $reported_progress = C4::UploadedFile->upload_progress($sessionID); -my $reply = CGI->new(""); print $reply->header(-type => 'text/html'); # response will be sent back as JSON print '{"progress":"' . $reported_progress . '"}'; --- a/tools/upload-file.pl +++ a/tools/upload-file.pl @@ -44,7 +44,7 @@ my $flags_required = [ {tools => 'upload_local_cover_images'} ]; -my %cookies = fetch CGI::Cookie; +my %cookies = CGI::Cookie->fetch; my $auth_failure = 1; my ( $auth_status, $sessionID ) = check_cookie_auth( $cookies{'CGISESSID'}->value ); --