Bug 12026: Fix small errors
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> Signed-off-by: Olli-Antti Kivilahti <olli-antti.kivilahti@jns.fi> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
parent
2ccdbcd0f5
commit
2f4e57b20f
|
|
@ -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'} || '';
|
||||
|
|
|
|||
Loading…
Reference in New Issue