|
Lines 123-128
if ( $action eq 'create' ) {
Link Here
|
| 123 |
my %borrower = ParseCgiForBorrower($cgi); |
123 |
my %borrower = ParseCgiForBorrower($cgi); |
| 124 |
|
124 |
|
| 125 |
%borrower = DelEmptyFields(%borrower); |
125 |
%borrower = DelEmptyFields(%borrower); |
|
|
126 |
$borrower{categorycode} ||= C4::Context->preference('PatronSelfRegistrationDefaultCategory'); |
| 126 |
|
127 |
|
| 127 |
my @empty_mandatory_fields = (CheckMandatoryFields( \%borrower, $action ), CheckMandatoryAttributes( \%borrower, $attributes ) ); |
128 |
my @empty_mandatory_fields = (CheckMandatoryFields( \%borrower, $action ), CheckMandatoryAttributes( \%borrower, $attributes ) ); |
| 128 |
my $invalidformfields = CheckForInvalidFields(\%borrower); |
129 |
my $invalidformfields = CheckForInvalidFields(\%borrower); |
|
Lines 218-224
if ( $action eq 'create' ) {
Link Here
|
| 218 |
} |
219 |
} |
| 219 |
); |
220 |
); |
| 220 |
|
221 |
|
| 221 |
$borrower{categorycode} ||= C4::Context->preference('PatronSelfRegistrationDefaultCategory'); |
|
|
| 222 |
$borrower{password} ||= Koha::AuthUtils::generate_password(Koha::Patron::Categories->find($borrower{categorycode})); |
222 |
$borrower{password} ||= Koha::AuthUtils::generate_password(Koha::Patron::Categories->find($borrower{categorycode})); |
| 223 |
my $consent_dt = delete $borrower{gdpr_proc_consent}; |
223 |
my $consent_dt = delete $borrower{gdpr_proc_consent}; |
| 224 |
my $patron = Koha::Patron->new( \%borrower )->store; |
224 |
my $patron = Koha::Patron->new( \%borrower )->store; |
| 225 |
- |
|
|