Lines 212-223
sub checkpw_ldap {
Link Here
|
212 |
} |
212 |
} |
213 |
|
213 |
|
214 |
if ($borrowernumber) { |
214 |
if ($borrowernumber) { |
215 |
if ($config{update}) { # A1, B1 |
215 |
if ( $config{update} ) { # A1, B1 |
216 |
my $c2 = &update_local($local_userid,$password,$borrowernumber,\%borrower) || ''; |
216 |
my $c2 = &update_local( $local_userid, $password, $borrowernumber, \%borrower ) || ''; |
217 |
($cardnumber eq $c2) or warn "update_local returned cardnumber '$c2' instead of '$cardnumber'"; |
217 |
( $cardnumber eq $c2 ) or warn "update_local returned cardnumber '$c2' instead of '$cardnumber'"; |
218 |
} else { # C1, D1 |
218 |
} else { # C1, D1 |
219 |
# maybe update just the password? |
219 |
# maybe update just the password? |
220 |
return(1, $cardnumber, $local_userid); |
220 |
my $patron = Koha::Patrons->find($borrowernumber); |
|
|
221 |
return ( 1, $cardnumber, $local_userid, $patron ); |
221 |
} |
222 |
} |
222 |
} elsif ($config{replicate}) { # A2, C2 |
223 |
} elsif ($config{replicate}) { # A2, C2 |
223 |
my @columns = Koha::Patrons->columns; |
224 |
my @columns = Koha::Patrons->columns; |
224 |
- |
|
|