Lines 224-230
sub checkpw_ldap {
Link Here
|
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 |
{ |
226 |
{ |
227 |
map { defined( $borrower{$_} ) ? ( $_ => $borrower{$_} ) : () } @columns |
227 |
map { exists( $borrower{$_} ) ? ( $_ => $borrower{$_} ) : () } @columns |
228 |
} |
228 |
} |
229 |
)->store; |
229 |
)->store; |
230 |
die "Insert of new patron failed" unless $patron; |
230 |
die "Insert of new patron failed" unless $patron; |
231 |
- |
|
|