View | Details | Raw Unified | Return to bug 12026
Collapse All | Expand All

(-)a/C4/Auth_with_shibboleth.pm (-3 / +2 lines)
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 = ( shibbolethMatchField => $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
- 

Return to bug 12026