From 2f4e57b20fb3843d7a4db19dca320e7992e5e03e Mon Sep 17 00:00:00 2001 From: Mirko Tietgen Date: Tue, 15 Nov 2016 11:36:33 +0100 Subject: [PATCH] Bug 12026: Fix small errors When running tests I got two errors. Do these changes make sense? Signed-off-by: Martin Renvoize Signed-off-by: Marcel de Rooy Signed-off-by: Olli-Antti Kivilahti Signed-off-by: Kyle M Hall --- C4/Auth_with_shibboleth.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Auth_with_shibboleth.pm b/C4/Auth_with_shibboleth.pm index 1a68c968dc..6a9a1cf3f0 100644 --- a/C4/Auth_with_shibboleth.pm +++ b/C4/Auth_with_shibboleth.pm @@ -108,7 +108,7 @@ sub checkpw_shib { return _autocreate( $config, $match ); } else { # If we reach this point, the user is not a valid koha user - $debug and warn "User $userid is not a valid Koha user"; + $debug and warn "User with $config->{matchpoint} of $match is not a valid Koha user"; return 0; } } @@ -116,7 +116,7 @@ sub checkpw_shib { sub _autocreate { my ( $config, $match ) = @_; - my %borrower = ( $shibbolethMatchField => $match ); + my %borrower = ( shibbolethMatchField => $match ); while ( my ( $key, $entry ) = each %{$config->{'mapping'}} ) { $borrower{$key} = ( $entry->{'is'} && $ENV{ $entry->{'is'} } ) || $entry->{'content'} || ''; -- 2.39.5