From dacd2cce95b534c7abbc29095f47e3b63743f0ef Mon Sep 17 00:00:00 2001
From: Mirko Tietgen <mirko@abunchofthings.net>
Date: Tue, 15 Nov 2016 11:36:33 +0100
Subject: [PATCH] Bug 12026: Fix small errors
Content-Type: text/plain; charset=utf-8

When running tests I got two errors. Do these changes make sense?

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
---
 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 1a68c96..6a9a1cf 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.1.4