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 |
- |
|
|