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