diff --git a/acqui/ajax-getauthvaluedropbox.pl b/acqui/ajax-getauthvaluedropbox.pl index a655e22c91..6f5d2d58f0 100755 --- a/acqui/ajax-getauthvaluedropbox.pl +++ b/acqui/ajax-getauthvaluedropbox.pl @@ -50,6 +50,17 @@ use Modern::Perl; use CGI; use C4::Budgets; use C4::Charset; +use C4::Auth qw/check_api_auth/; + +my $query = CGI->new(); +binmode STDOUT, ':encoding(UTF-8)'; + +my ($status, $cookie, $sessionID) = check_api_auth($query, { catalogue => '*'} ); +unless ($status eq "ok") { + print $query->header(-type => 'text/plain', -status => '403 Forbidden'); + print ''; + exit 0; +} my $input = new CGI; my $name = $input->param('name');