Marcel de Rooy
298733cb1e
This patch does the following:
[1] Adjust authorities_merge_ajax just as in bug 14588.
[2] Replace some indirect syntax for fetch GGI::Cookie.
[3] Along the way replace some new CGI's. Note that I am not aiming to
replace them Koha wide. The "fetch class" variant is less readable.
NOTE: The changes to tools/upload-file.pl and upload-file-progress.pl
are moved to report 14321.
Test plan:
[1] Run the URL authorities/merge_ajax.pl in staff.
[2] Upload a file with Stage MARC records for import.
Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
[1] It runs, but also before patch
[2] File uploads without problem
No errors
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
We could certainly remove 1 or 2 call to CGI->new in tools/background-job-progress.pl
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
25 lines
663 B
Perl
Executable file
25 lines
663 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use CGI qw ( -utf8 );
|
|
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;
|
|
|
|
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") {
|
|
print $reply->header(-type => 'text/html');
|
|
exit 0;
|
|
}
|
|
|
|
my $framework = $reply->param('frameworkcode');
|
|
my $tagslib = GetTagsLabels(1, $framework);
|
|
print $reply->header(-type => 'text/html');
|
|
print encode_json $tagslib;
|