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

(-)a/C4/Auth_with_shibboleth.pm (-2 / +5 lines)
Lines 119-125 sub _autocreate { Link Here
119
    my %borrower = ( $config->{matchpoint} => $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
        if ( any { /(^psgi|^plack)/i } keys %ENV ) {
123
            $borrower{$key} = ( $entry->{'is'} && $ENV{"HTTP_" . uc($entry->{'is'}) } ) || $entry->{'content'} || '';
124
        } else {
125
            $borrower{$key} = ( $entry->{'is'} && $ENV{ $entry->{'is'} } ) || $entry->{'content'} || '';
126
        }
123
    }
127
    }
124
128
125
    my $patron = Koha::Patron->new( \%borrower )->store;
129
    my $patron = Koha::Patron->new( \%borrower )->store;
126
- 

Return to bug 19625