|
Lines 221-227
sub checkpw_ldap {
Link Here
|
| 221 |
return(1, $cardnumber, $local_userid); |
221 |
return(1, $cardnumber, $local_userid); |
| 222 |
} |
222 |
} |
| 223 |
} elsif ($config{replicate}) { # A2, C2 |
223 |
} elsif ($config{replicate}) { # A2, C2 |
| 224 |
Koha::Patron->new( \%borrower )->store; |
224 |
my $patron = Koha::Patron->new( \%borrower )->store; |
|
|
225 |
die "Insert of new patron failed" unless $patron; |
| 226 |
$borrowernumber = $patron->borrowernumber; |
| 225 |
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( { borrowernumber => $borrowernumber, categorycode => $borrower{'categorycode'} } ); |
227 |
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( { borrowernumber => $borrowernumber, categorycode => $borrower{'categorycode'} } ); |
| 226 |
} else { |
228 |
} else { |
| 227 |
return 0; # B2, D2 |
229 |
return 0; # B2, D2 |
| 228 |
- |
|
|