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 |
- |
|
|