Lines 51-61
if ( $m ) {
Link Here
|
51 |
OpacPasswordChange => C4::Context->preference('OpacPasswordChange') ); |
51 |
OpacPasswordChange => C4::Context->preference('OpacPasswordChange') ); |
52 |
|
52 |
|
53 |
my $borrower = $m->unblessed(); |
53 |
my $borrower = $m->unblessed(); |
54 |
# Avoid "Column 'column' cannot be null" errors |
|
|
55 |
# FIXME should be done at the Koha::Object level |
56 |
for my $key ( keys %$borrower ) { |
57 |
delete $borrower->{$key} if not defined $borrower->{$key} |
58 |
} |
59 |
|
54 |
|
60 |
my $password; |
55 |
my $password; |
61 |
( $borrowernumber, $password ) = AddMember_Opac(%$borrower); |
56 |
( $borrowernumber, $password ) = AddMember_Opac(%$borrower); |
62 |
- |
|
|