|
Lines 108-114
sub checkpw_shib {
Link Here
|
| 108 |
return _autocreate( $config, $match ); |
108 |
return _autocreate( $config, $match ); |
| 109 |
} else { |
109 |
} else { |
| 110 |
# If we reach this point, the user is not a valid koha user |
110 |
# If we reach this point, the user is not a valid koha user |
| 111 |
$debug and warn "User $userid is not a valid Koha user"; |
111 |
$debug and warn "User with $config->{matchpoint} of $match is not a valid Koha user"; |
| 112 |
return 0; |
112 |
return 0; |
| 113 |
} |
113 |
} |
| 114 |
} |
114 |
} |
|
Lines 116-122
sub checkpw_shib {
Link Here
|
| 116 |
sub _autocreate { |
116 |
sub _autocreate { |
| 117 |
my ( $config, $match ) = @_; |
117 |
my ( $config, $match ) = @_; |
| 118 |
|
118 |
|
| 119 |
my %borrower = ( $shibbolethMatchField => $match ); |
119 |
my %borrower = ( $config->{matchpoint} => $match ); |
| 120 |
|
120 |
|
| 121 |
while ( my ( $key, $entry ) = each %{$config->{'mapping'}} ) { |
121 |
while ( my ( $key, $entry ) = each %{$config->{'mapping'}} ) { |
| 122 |
$borrower{$key} = ( $entry->{'is'} && $ENV{ $entry->{'is'} } ) || $entry->{'content'} || ''; |
122 |
$borrower{$key} = ( $entry->{'is'} && $ENV{ $entry->{'is'} } ) || $entry->{'content'} || ''; |
| 123 |
- |
|
|