Lines 129-134
if ( $action eq 'create' ) {
Link Here
|
129 |
my %borrower = ParseCgiForBorrower($cgi); |
129 |
my %borrower = ParseCgiForBorrower($cgi); |
130 |
|
130 |
|
131 |
%borrower = DelEmptyFields(%borrower); |
131 |
%borrower = DelEmptyFields(%borrower); |
|
|
132 |
$borrower{categorycode} ||= C4::Context->preference('PatronSelfRegistrationDefaultCategory'); |
132 |
|
133 |
|
133 |
my @empty_mandatory_fields = (CheckMandatoryFields( \%borrower, $action ), CheckMandatoryAttributes( \%borrower, $attributes ) ); |
134 |
my @empty_mandatory_fields = (CheckMandatoryFields( \%borrower, $action ), CheckMandatoryAttributes( \%borrower, $attributes ) ); |
134 |
my $invalidformfields = CheckForInvalidFields(\%borrower); |
135 |
my $invalidformfields = CheckForInvalidFields(\%borrower); |
Lines 224-230
if ( $action eq 'create' ) {
Link Here
|
224 |
} |
225 |
} |
225 |
); |
226 |
); |
226 |
|
227 |
|
227 |
$borrower{categorycode} ||= C4::Context->preference('PatronSelfRegistrationDefaultCategory'); |
|
|
228 |
$borrower{password} ||= Koha::AuthUtils::generate_password(Koha::Patron::Categories->find($borrower{categorycode})); |
228 |
$borrower{password} ||= Koha::AuthUtils::generate_password(Koha::Patron::Categories->find($borrower{categorycode})); |
229 |
my $consent_dt = delete $borrower{gdpr_proc_consent}; |
229 |
my $consent_dt = delete $borrower{gdpr_proc_consent}; |
230 |
my $patron = Koha::Patron->new( \%borrower )->store; |
230 |
my $patron = Koha::Patron->new( \%borrower )->store; |
231 |
- |
|
|