From 11d34d66e72e46906551fb9853d32d27c181aa3f Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Thu, 17 Oct 2013 17:41:43 -0700 Subject: [PATCH] Bug 11077: Uninitialized value $pki_field warning During login at the Staff interface you get warnings in the logs regarding an uninitialized value for the $pki_field variable. To test: - tail -f /path/to/your-intranet-logs - Point your browser to your staff login page - Login - Three warnings are showed - Apply the patch - Log out - Log in - No new warnings, and you can still log in. Thanks To+ Sponsored-by: Universidad Nacional de Cordoba --- C4/Auth.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/C4/Auth.pm b/C4/Auth.pm index d73edaf..048eb73 100644 --- a/C4/Auth.pm +++ b/C4/Auth.pm @@ -682,7 +682,7 @@ sub checkauth { $userid = $session->param('id'); $sessiontype = $session->param('sessiontype') || ''; } - if ( ( ($query->param('koha_login_context')) && ($query->param('userid') ne $session->param('id')) ) + if ( ( ($query->param('koha_login_context')) && ($query->param('userid') ne ($session->param('id') // '')) ) || ( $cas && $query->param('ticket') ) ) { #if a user enters an id ne to the id in the current session, we need to log them in... #first we need to clear the anonymous session... @@ -754,11 +754,12 @@ sub checkauth { -value => $session->id, -HttpOnly => 1 ); - $userid = $query->param('userid'); + $userid = $query->param('userid'); + my $pki_field = C4::Context->preference('AllowPKIAuth') // 'None'; if ( ( $cas && $query->param('ticket') ) || $userid - || ( my $pki_field = C4::Context->preference('AllowPKIAuth') ) ne - 'None' || $persona ) + || $pki_field ne 'None' + || $persona ) { my $password = $query->param('password'); -- 1.8.3.2