From 37005486d361f6a9ea60912da0249eeec9734db9 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 3 Nov 2021 13:43:11 +0100 Subject: [PATCH] Bug 28417: Don't require C4::Auth_with_cas from opac-user if not needed Note that without the use URI::QueryParam statement in C4::Auth we get: Can't locate object method "query_param_delete" via package "URI::_generic" at /kohadevbox/koha/C4/Auth.pm line 1254 Signed-off-by: Jonathan Druart --- C4/Auth.pm | 2 ++ C4/Auth_with_cas.pm | 1 + opac/opac-user.pl | 6 ++++-- 3 files changed, 7 insertions(+), 2 deletions(-) diff --git a/C4/Auth.pm b/C4/Auth.pm index df0cf31425..b531ab4a6a 100644 --- a/C4/Auth.pm +++ b/C4/Auth.pm @@ -23,6 +23,8 @@ use Carp qw( croak ); use Digest::MD5 qw( md5_base64 ); use CGI::Session; +use URI; +use URI::QueryParam; use C4::Context; use C4::Templates; # to get the template diff --git a/C4/Auth_with_cas.pm b/C4/Auth_with_cas.pm index 5becd96fdc..3817a69d70 100644 --- a/C4/Auth_with_cas.pm +++ b/C4/Auth_with_cas.pm @@ -25,6 +25,7 @@ use Koha::AuthUtils qw( get_script_name ); use Authen::CAS::Client; use CGI qw ( -utf8 ); use YAML::XS; +use URI::Escape; use Koha::Logger; diff --git a/opac/opac-user.pl b/opac/opac-user.pl index 6feb144e50..e610cabc2a 100755 --- a/opac/opac-user.pl +++ b/opac/opac-user.pl @@ -57,8 +57,10 @@ my $query = CGI->new; # CAS single logout handling # Will print header and exit -require C4::Auth_with_cas; -C4::Context->preference('casAuthentication') and C4::Auth_with_cas::logout_if_required($query); +if ( C4::Context->preference('casAuthentication') ) { + require C4::Auth_with_cas; + C4::Auth_with_cas::logout_if_required($query); +} my ( $template, $borrowernumber, $cookie ) = get_template_and_user( { -- 2.39.5