Lines 22-27
use warnings;
Link Here
|
22 |
|
22 |
|
23 |
use C4::Debug; |
23 |
use C4::Debug; |
24 |
use C4::Context; |
24 |
use C4::Context; |
|
|
25 |
use C4::Members qw( AddMember_Auto ); |
26 |
use C4::Members::Messaging; |
25 |
use Carp; |
27 |
use Carp; |
26 |
use CGI; |
28 |
use CGI; |
27 |
|
29 |
|
Lines 104-112
sub checkpw_shib {
Link Here
|
104 |
return ( 1, $retnumber, $userid ); |
106 |
return ( 1, $retnumber, $userid ); |
105 |
} |
107 |
} |
106 |
|
108 |
|
107 |
# If we reach this point, the user is not a valid koha user |
109 |
if ( $config->{'autocreate'} ) { |
108 |
$debug and warn "User with $config->{matchpoint} of $match is not a valid Koha user"; |
110 |
return _autocreate( $dbh, $config, $match ); |
109 |
return 0; |
111 |
} else { |
|
|
112 |
# If we reach this point, the user is not a valid koha user |
113 |
$debug and warn "User with $config->{matchpoint} of $match is not a valid Koha user"; |
114 |
return 0; |
115 |
} |
110 |
} |
116 |
} |
111 |
|
117 |
|
112 |
sub _get_uri { |
118 |
sub _get_uri { |
Lines 146-151
sub _get_shib_config {
Link Here
|
146 |
} |
152 |
} |
147 |
} |
153 |
} |
148 |
|
154 |
|
|
|
155 |
sub _autocreate { |
156 |
my ( $dbh, $config, $match ) = @_; |
157 |
|
158 |
my %borrower = ( $config->{matchpoint} => $match ); |
159 |
|
160 |
while ( my ( $key, $entry ) = each %{$config->{'mapping'}} ) { |
161 |
$borrower{$key} = ( $entry->{'is'} && $ENV{ $entry->{'is'} } ) || $entry->{'content'} || ''; |
162 |
} |
163 |
|
164 |
%borrower = AddMember_Auto( %borrower ); |
165 |
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( { borrowernumber => $borrower{'borrowernumber'}, categorycode => $borrower{'categorycode'} } ); |
166 |
|
167 |
return ( 1, $borrower{'cardnumber'}, $borrower{'userid'} ); |
168 |
} |
169 |
|
149 |
1; |
170 |
1; |
150 |
__END__ |
171 |
__END__ |
151 |
|
172 |
|