|
Lines 223-233
sub checkpw_ldap {
Link Here
|
| 223 |
} elsif ($config{replicate}) { # A2, C2 |
223 |
} elsif ($config{replicate}) { # A2, C2 |
| 224 |
my @columns = Koha::Patrons->columns; |
224 |
my @columns = Koha::Patrons->columns; |
| 225 |
my $patron = Koha::Patron->new( |
225 |
my $patron = Koha::Patron->new( |
| 226 |
map { |
226 |
{ |
| 227 |
grep join( ' ', @columns ) =~ /$_/ |
227 |
map { defined( $borrower{$_} ) ? ( $_ => $borrower{$_} ) : () } @columns |
| 228 |
? ( $_ => $data{$_} ) |
228 |
} |
| 229 |
: () |
|
|
| 230 |
} keys %borrower |
| 231 |
)->store; |
229 |
)->store; |
| 232 |
die "Insert of new patron failed" unless $patron; |
230 |
die "Insert of new patron failed" unless $patron; |
| 233 |
$borrowernumber = $patron->borrowernumber; |
231 |
$borrowernumber = $patron->borrowernumber; |
| 234 |
- |
|
|