|
Lines 227-232
sub checkpw_ldap {
Link Here
|
| 227 |
map { exists( $borrower{$_} ) ? ( $_ => $borrower{$_} ) : () } @columns |
227 |
map { exists( $borrower{$_} ) ? ( $_ => $borrower{$_} ) : () } @columns |
| 228 |
} |
228 |
} |
| 229 |
)->store; |
229 |
)->store; |
|
|
230 |
$patron->discard_changes; |
| 230 |
die "Insert of new patron failed" unless $patron; |
231 |
die "Insert of new patron failed" unless $patron; |
| 231 |
$borrowernumber = $patron->borrowernumber; |
232 |
$borrowernumber = $patron->borrowernumber; |
| 232 |
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( |
233 |
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( |
| 233 |
- |
|
|