Lines 181-186
elsif ( defined $query->param('code') ) {
Link Here
|
181 |
. ' .' ); |
181 |
. ' .' ); |
182 |
} |
182 |
} |
183 |
else { |
183 |
else { |
|
|
184 |
my $error_feedback = |
185 |
'The email address you are trying to use is not associated with a borrower at this library.'; |
184 |
my $auto_registration = C4::Context->preference('GoogleOpenIDConnectAutoRegister') // q{0}; |
186 |
my $auto_registration = C4::Context->preference('GoogleOpenIDConnectAutoRegister') // q{0}; |
185 |
my $borrower = Koha::Patrons->find( { email => $email } ); |
187 |
my $borrower = Koha::Patrons->find( { email => $email } ); |
186 |
if (! $borrower && $auto_registration==1) { |
188 |
if (! $borrower && $auto_registration==1) { |
Lines 190-209
elsif ( defined $query->param('code') ) {
Link Here
|
190 |
my $delimiter = $firstname ? q{.} : q{}; |
192 |
my $delimiter = $firstname ? q{.} : q{}; |
191 |
my $userid = $firstname . $delimiter . $surname; |
193 |
my $userid = $firstname . $delimiter . $surname; |
192 |
my $categorycode = C4::Context->preference('GoogleOpenIDConnectDefaultCategory') // q{}; |
194 |
my $categorycode = C4::Context->preference('GoogleOpenIDConnectDefaultCategory') // q{}; |
|
|
195 |
my $patron_category = Koha::Patron::Categories->find( $categorycode ); |
193 |
my $branchcode = C4::Context->preference('GoogleOpenIDConnectDefaultBranch') // q{}; |
196 |
my $branchcode = C4::Context->preference('GoogleOpenIDConnectDefaultBranch') // q{}; |
194 |
my $password = undef; |
197 |
my $library = Koha::Libraries->find( $branchcode ); |
195 |
my $borrowernumber = C4::Members::AddMember( |
198 |
if (defined $patron_category && defined $library) { |
196 |
cardnumber => $cardnumber, |
199 |
my $password = undef; |
197 |
firstname => $firstname, |
200 |
my $borrowernumber = C4::Members::AddMember( |
198 |
surname => $surname, |
201 |
cardnumber => $cardnumber, |
199 |
email => $email, |
202 |
firstname => $firstname, |
200 |
categorycode => $categorycode, |
203 |
surname => $surname, |
201 |
branchcode => $branchcode, |
204 |
email => $email, |
202 |
userid => $userid, |
205 |
categorycode => $categorycode, |
203 |
password => $password |
206 |
branchcode => $branchcode, |
204 |
); |
207 |
userid => $userid, |
205 |
$borrower = Koha::Patrons->find( { |
208 |
password => $password |
206 |
borrowernumber => $borrowernumber } ); |
209 |
); |
|
|
210 |
$borrower = Koha::Patrons->find( { |
211 |
borrowernumber => $borrowernumber } ); |
212 |
} else { |
213 |
$error_feedback = 'The GoogleOpenIDConnectDefaultBranch or GoogleOpenIDConnectDefaultCategory system preferences are not configured properly. Please contact the library with this error message.'; |
214 |
} |
207 |
} |
215 |
} |
208 |
my ( $userid, $cookie, $session_id ) = |
216 |
my ( $userid, $cookie, $session_id ) = |
209 |
checkauth( $query, 1, {}, 'opac', $email ); |
217 |
checkauth( $query, 1, {}, 'opac', $email ); |
Lines 214-222
elsif ( defined $query->param('code') ) {
Link Here
|
214 |
); |
222 |
); |
215 |
} |
223 |
} |
216 |
else { |
224 |
else { |
217 |
loginfailed( $query, |
225 |
loginfailed( $query, $error_feedback ); |
218 |
'The email address you are trying to use is not associated with a borrower at this library.' |
|
|
219 |
); |
220 |
} |
226 |
} |
221 |
} |
227 |
} |
222 |
} |
228 |
} |
223 |
- |
|
|