|
Lines 197-202
if ( $op eq 'cud-create' ) {
Link Here
|
| 197 |
$borrower{verification_token} = $verification_token; |
197 |
$borrower{verification_token} = $verification_token; |
| 198 |
|
198 |
|
| 199 |
$borrower{extended_attributes} = to_json($attributes); |
199 |
$borrower{extended_attributes} = to_json($attributes); |
|
|
200 |
$borrower{borrowernumber} = 0; # prevent warn Missing value for PK column |
| 200 |
Koha::Patron::Modification->new( \%borrower )->store(); |
201 |
Koha::Patron::Modification->new( \%borrower )->store(); |
| 201 |
|
202 |
|
| 202 |
#Send verification email |
203 |
#Send verification email |
| 203 |
- |
|
|