|
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 |
my $patron = Koha::Patron->new( \%borrower )->store; |
224 |
my @columns = Koha::Patrons->columns; |
|
|
225 |
my $patron = Koha::Patron->new( |
| 226 |
map { |
| 227 |
grep join( ' ', @columns ) =~ /$_/ |
| 228 |
? ( $_ => $data{$_} ) |
| 229 |
: () |
| 230 |
} keys %borrower |
| 231 |
)->store; |
| 225 |
die "Insert of new patron failed" unless $patron; |
232 |
die "Insert of new patron failed" unless $patron; |
| 226 |
$borrowernumber = $patron->borrowernumber; |
233 |
$borrowernumber = $patron->borrowernumber; |
| 227 |
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( { borrowernumber => $borrowernumber, categorycode => $borrower{'categorycode'} } ); |
234 |
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( { borrowernumber => $borrowernumber, categorycode => $borrower{'categorycode'} } ); |
| 228 |
- |
|
|