From 0952a793a948d034041a182511fb23696530cc72 Mon Sep 17 00:00:00 2001 From: Alex Buckley Date: Mon, 13 Apr 2020 14:30:49 +0000 Subject: [PATCH] Bug 25090: Add sysprefs to define destination of OPAC self reg verification emails Test plan: To come Sponsored-By: Mental Health Education Resource Centre, NZ --- ...lfRegistrationVerificationRecipient_syspref.sql | 2 + .../bug_25090-add_STAFF_VER_OPAC_REG_notice.perl | 36 ++++++++++++++ .../data/mysql/de-DE/mandatory/sample_notices.sql | 28 +++++++++++ .../data/mysql/en/mandatory/sample_notices.yml | 33 +++++++++++++ .../data/mysql/es-ES/mandatory/sample_notices.sql | 27 +++++++++++ .../mysql/fr-CA/obligatoire/sample_notices.sql | 27 +++++++++++ .../mysql/fr-FR/1-Obligatoire/sample_notices.sql | 26 ++++++++++ installer/data/mysql/it-IT/necessari/notices.sql | 27 +++++++++++ .../mysql/nb-NO/1-Obligatorisk/sample_notices.sql | 27 +++++++++++ .../data/mysql/pl-PL/mandatory/sample_notices.sql | 26 ++++++++++ .../data/mysql/ru-RU/mandatory/sample_notices.sql | 26 ++++++++++ installer/data/mysql/sysprefs.sql | 2 + .../data/mysql/uk-UA/mandatory/sample_notices.sql | 26 ++++++++++ .../prog/en/modules/admin/preferences/opac.pref | 13 +++++ .../en/modules/opac-registration-confirmation.tt | 21 ++++++++- .../en/modules/opac-registration-email-sent.tt | 12 +++++ opac/opac-memberentry.pl | 55 ++++++++++++++++++---- opac/opac-registration-verify.pl | 3 ++ 18 files changed, 406 insertions(+), 11 deletions(-) create mode 100644 installer/data/mysql/atomicupdate/bug_25090-add_PatronSelfRegistrationVerificationRecipient_syspref.sql create mode 100644 installer/data/mysql/atomicupdate/bug_25090-add_STAFF_VER_OPAC_REG_notice.perl diff --git a/installer/data/mysql/atomicupdate/bug_25090-add_PatronSelfRegistrationVerificationRecipient_syspref.sql b/installer/data/mysql/atomicupdate/bug_25090-add_PatronSelfRegistrationVerificationRecipient_syspref.sql new file mode 100644 index 0000000000..387c190641 --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug_25090-add_PatronSelfRegistrationVerificationRecipient_syspref.sql @@ -0,0 +1,2 @@ +INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES ('PatronSelfRegistrationVerificationRecipient', 'RegisteringPatron', 'PatronSelfRegistrationVerificationRecipientAddress|BranchEmailAddress|KohaAdminEmailAddress|RegisteringPatron', 'Choose email address that self registering users verification email will be sent to.', 'Choice'); +INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES ('PatronSelfRegistrationVerificationRecipientAddress', '', '', 'If you choose PatronSelfRegistrationVerificationRecipientAddress you have to enter a valid email address:', 'free'); diff --git a/installer/data/mysql/atomicupdate/bug_25090-add_STAFF_VER_OPAC_REG_notice.perl b/installer/data/mysql/atomicupdate/bug_25090-add_STAFF_VER_OPAC_REG_notice.perl new file mode 100644 index 0000000000..6e47fef95f --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug_25090-add_STAFF_VER_OPAC_REG_notice.perl @@ -0,0 +1,36 @@ +$DBversion = 'XXX'; # will be replaced by the RM +if( CheckVersion( $DBversion ) ) { + $dbh->do(q{ + INSERT IGNORE INTO `letter` (module, code, name, title, content, is_html, message_transport_type) VALUES ('members', 'STAFF_VER_OPAC_REG', 'New patron Opac Self-Registration to verify', 'Verify new Opac patron self registration', '

Opac self registration pending verification

+

Submitted Opac patron self registration:

+ +

+

+ If you wish to create a Koha patron account thereby giving this patron Opac access please click on this verification link: +

+ +

+ <>/cgi-bin/koha/opac-registration-verify.pl?token=<>&approved=1 +

+ +

+ If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly. +

+

', 1, 'email') + }); + + SetVersion( $DBversion ); + print "Upgrade to $DBversion done (Bug XXXXX - description)\n"; +} diff --git a/installer/data/mysql/de-DE/mandatory/sample_notices.sql b/installer/data/mysql/de-DE/mandatory/sample_notices.sql index 0fbf5f73d2..587f733117 100644 --- a/installer/data/mysql/de-DE/mandatory/sample_notices.sql +++ b/installer/data/mysql/de-DE/mandatory/sample_notices.sql @@ -386,3 +386,31 @@ INSERT IGNORE INTO `letter` (`module`, `code`, `branchcode`, `name`, `is_html`, ', 'print', 'default'); + +INSERT IGNORE INTO `letter` (module, code, name, title, content, is_html, message_transport_type) VALUES ('members', 'STAFF_VER_OPAC_REG', 'New patron Opac Self-Registration to verify', 'Verify new Opac patron self registration', '

Opac self registration pending verification

+

Submitted Opac patron self registration:

+ +

+

+ If you wish to create a Koha patron account thereby giving this patron Opac access please click on this verification link: +

+

+ <>/cgi-bin/koha/opac-registration-verify.pl?token=<>&approved=1 +

+

+ If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly. +

', 1, 'email'); + + diff --git a/installer/data/mysql/en/mandatory/sample_notices.yml b/installer/data/mysql/en/mandatory/sample_notices.yml index 7f814c377b..5622f319d4 100644 --- a/installer/data/mysql/en/mandatory/sample_notices.yml +++ b/installer/data/mysql/en/mandatory/sample_notices.yml @@ -736,6 +736,39 @@ tables: - "If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly." - module: members + code: STAFF_VER_OPAC_REG + branchode: "" + name: "New patron Opac Self-Registration to verify" + is_html: 1 + title: "Verify new Opac patron self registration" + message_transport_type: email + lang: default + content: + - "

Opac self registration pending verification

" + - "

Submitted Opac patron self registration:

" + - "" + - "

" + - "

" + - "If you wish to create a Koha patron account thereby giving this patron Opac access please click on this verification link:" + - "

" + - "<>/cgi-bin/koha/opac-registration-verify.pl?token=<>&approved=1" + - "

" + - "If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly." + - "

" + + - module: members code: PASSWORD_RESET branchcode: "" name: "Online password reset" diff --git a/installer/data/mysql/es-ES/mandatory/sample_notices.sql b/installer/data/mysql/es-ES/mandatory/sample_notices.sql index 4ee0a6c800..ab94309cdd 100644 --- a/installer/data/mysql/es-ES/mandatory/sample_notices.sql +++ b/installer/data/mysql/es-ES/mandatory/sample_notices.sql @@ -378,3 +378,30 @@ INSERT IGNORE INTO `letter` (`module`, `code`, `branchcode`, `name`, `is_html`, ', 'print', 'default'); + +INSERT IGNORE INTO `letter` (module, code, name, title, content, is_html, message_transport_type) VALUES ('members', 'STAFF_VER_OPAC_REG', 'New patron Opac Self-Registration to verify', 'Verify new Opac patron self registration', '

Opac self registration pending verification

+

Submitted Opac patron self registration:

+ +

+

+ If you wish to create a Koha patron account thereby giving this patron Opac access please click on this verification link: +

+

+ <>/cgi-bin/koha/opac-registration-verify.pl?token=<>&approved=1 +

+

+ If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly. +

', 1, 'email'); + diff --git a/installer/data/mysql/fr-CA/obligatoire/sample_notices.sql b/installer/data/mysql/fr-CA/obligatoire/sample_notices.sql index ba88804699..1d92ecbaec 100644 --- a/installer/data/mysql/fr-CA/obligatoire/sample_notices.sql +++ b/installer/data/mysql/fr-CA/obligatoire/sample_notices.sql @@ -268,3 +268,30 @@ INSERT IGNORE INTO `letter` (`module`, `code`, `branchcode`, `name`, `is_html`, ', 'print', 'default'); + + +INSERT IGNORE INTO `letter` (module, code, name, title, content, is_html, message_transport_type) VALUES ('members', 'STAFF_VER_OPAC_REG', 'New patron Opac Self-Registration to verify', 'Verify new Opac patron self registration', '

Opac self registration pending verification

+

Submitted Opac patron self registration:

+ +

+

+ If you wish to create a Koha patron account thereby giving this patron Opac access please click on this verification link: +

+

+ <>/cgi-bin/koha/opac-registration-verify.pl?token=<>&approved=1 +

+

+ If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly. +

', 1, 'email'); diff --git a/installer/data/mysql/fr-FR/1-Obligatoire/sample_notices.sql b/installer/data/mysql/fr-FR/1-Obligatoire/sample_notices.sql index 6106d737f3..eb982a52a1 100644 --- a/installer/data/mysql/fr-FR/1-Obligatoire/sample_notices.sql +++ b/installer/data/mysql/fr-FR/1-Obligatoire/sample_notices.sql @@ -379,3 +379,29 @@ INSERT IGNORE INTO `letter` (`module`, `code`, `branchcode`, `name`, `is_html`, ', 'print', 'default'); + +INSERT IGNORE INTO `letter` (module, code, name, title, content, is_html, message_transport_type) VALUES ('members', 'STAFF_VER_OPAC_REG', 'New patron Opac Self-Registration to verify', 'Verify new Opac patron self registration', '

Opac self registration pending verification

+

Submitted Opac patron self registration:

+ +

+

+ If you wish to create a Koha patron account thereby giving this patron Opac access please click on this verification link: +

+

+ <>/cgi-bin/koha/opac-registration-verify.pl?token=<>&approved=1 +

+

+ If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly. +

', 1, 'email'); diff --git a/installer/data/mysql/it-IT/necessari/notices.sql b/installer/data/mysql/it-IT/necessari/notices.sql index e462da9d00..e536d931b9 100644 --- a/installer/data/mysql/it-IT/necessari/notices.sql +++ b/installer/data/mysql/it-IT/necessari/notices.sql @@ -382,3 +382,30 @@ INSERT IGNORE INTO `letter` (`module`, `code`, `branchcode`, `name`, `is_html`, ', 'print', 'default'); + +INSERT IGNORE INTO `letter` (module, code, name, title, content, is_html, message_transport_type) VALUES ('members', 'STAFF_VER_OPAC_REG', 'New patron Opac Self-Registration to verify', 'Verify new Opac patron self registration', '

Opac self registration pending verification

+

Submitted Opac patron self registration:

+ +

+

+ If you wish to create a Koha patron account thereby giving this patron Opac access please click on this verification link: +

+

+ <>/cgi-bin/koha/opac-registration-verify.pl?token=<>&approved=1 +

+

+ If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly. +

', 1, 'email'); + diff --git a/installer/data/mysql/nb-NO/1-Obligatorisk/sample_notices.sql b/installer/data/mysql/nb-NO/1-Obligatorisk/sample_notices.sql index 8439fd96d8..4c0e8aebf2 100644 --- a/installer/data/mysql/nb-NO/1-Obligatorisk/sample_notices.sql +++ b/installer/data/mysql/nb-NO/1-Obligatorisk/sample_notices.sql @@ -398,3 +398,30 @@ INSERT IGNORE INTO `letter` (`module`, `code`, `branchcode`, `name`, `is_html`, ', 'print', 'default'); + + +INSERT IGNORE INTO `letter` (module, code, name, title, content, is_html, message_transport_type) VALUES ('members', 'STAFF_VER_OPAC_REG', 'New patron Opac Self-Registration to verify', 'Verify new Opac patron self registration', '

Opac self registration pending verification

+

Submitted Opac patron self registration:

+ +

+

+ If you wish to create a Koha patron account thereby giving this patron Opac access please click on this verification link: +

+

+ <>/cgi-bin/koha/opac-registration-verify.pl?token=<>&approved=1 +

+

+ If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly. +

', 1, 'email'); diff --git a/installer/data/mysql/pl-PL/mandatory/sample_notices.sql b/installer/data/mysql/pl-PL/mandatory/sample_notices.sql index 6373e2e975..3e3cc14c16 100644 --- a/installer/data/mysql/pl-PL/mandatory/sample_notices.sql +++ b/installer/data/mysql/pl-PL/mandatory/sample_notices.sql @@ -376,3 +376,29 @@ INSERT IGNORE INTO `letter` (`module`, `code`, `branchcode`, `name`, `is_html`, ', 'print', 'default'); + +INSERT IGNORE INTO `letter` (module, code, name, title, content, is_html, message_transport_type) VALUES ('members', 'STAFF_VER_OPAC_REG', 'New patron Opac Self-Registration to verify', 'Verify new Opac patron self registration', '

Opac self registration pending verification

+

Submitted Opac patron self registration:

+ +

+

+ If you wish to create a Koha patron account thereby giving this patron Opac access please click on this verification link: +

+

+ <>/cgi-bin/koha/opac-registration-verify.pl?token=<>&approved=1 +

+

+ If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly. +

', 1, 'email'); diff --git a/installer/data/mysql/ru-RU/mandatory/sample_notices.sql b/installer/data/mysql/ru-RU/mandatory/sample_notices.sql index f9c4fc55d5..625fa3c3ae 100644 --- a/installer/data/mysql/ru-RU/mandatory/sample_notices.sql +++ b/installer/data/mysql/ru-RU/mandatory/sample_notices.sql @@ -378,3 +378,29 @@ INSERT IGNORE INTO `letter` (`module`, `code`, `branchcode`, `name`, `is_html`, ', 'print', 'default'); + +INSERT IGNORE INTO `letter` (module, code, name, title, content, is_html, message_transport_type) VALUES ('members', 'STAFF_VER_OPAC_REG', 'New patron Opac Self-Registration to verify', 'Verify new Opac patron self registration', '

Opac self registration pending verification

+

Submitted Opac patron self registration:

+ +

+

+ If you wish to create a Koha patron account thereby giving this patron Opac access please click on this verification link: +

+

+ <>/cgi-bin/koha/opac-registration-verify.pl?token=<>&approved=1 +

+

+ If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly. +

', 1, 'email'); diff --git a/installer/data/mysql/sysprefs.sql b/installer/data/mysql/sysprefs.sql index a15c4c6c95..92d83a3a8c 100644 --- a/installer/data/mysql/sysprefs.sql +++ b/installer/data/mysql/sysprefs.sql @@ -492,6 +492,8 @@ INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` ('PatronSelfRegistrationExpireTemporaryAccountsDelay','0',NULL,'If PatronSelfRegistrationDefaultCategory is enabled, this system preference controls how long a patron can have a temporary status before the account is deleted automatically. It is an integer value representing a number of days to wait before deleting a temporary patron account. Setting it to 0 disables the deleting of temporary accounts.','Integer'), ('PatronSelfRegistrationLibraryList','',NULL,'Only display libraries listed. If empty, all libraries are displayed.','Free'), ('PatronSelfRegistrationPrefillForm','1',NULL,'Display password and prefill login form after a patron has self registered','YesNo'), +('PatronSelfRegistrationVerificationRecipient', 'RegisteringPatron', 'PatronSelfRegistrationVerificationRecipientAddress|BranchEmailAddress|KohaAdminEmailAddress|RegisteringPatron', 'Choose email address that self registering users verification email will be sent to', 0, 'Choice'), +('PatronSelfRegistrationVerificationRecipientAddress', '', '', 'If you choose PatronSelfRegistrationVerificationRecipientAddress you have to enter a valid email address:', 'free'), ('PatronSelfRegistrationVerifyByEmail','0',NULL,'If enabled, any patron attempting to register themselves via the OPAC will be required to verify themselves via email to activate his or her account.','YesNo'), ('PatronsPerPage','20','20','Number of Patrons Per Page displayed by default','Integer'), ('EnablePayPalOpacPayments', '0', NULL , 'Enables the ability to pay fees and fines from the OPAC via PayPal', 'YesNo' ), diff --git a/installer/data/mysql/uk-UA/mandatory/sample_notices.sql b/installer/data/mysql/uk-UA/mandatory/sample_notices.sql index 5356ad74f4..123b5d7eca 100644 --- a/installer/data/mysql/uk-UA/mandatory/sample_notices.sql +++ b/installer/data/mysql/uk-UA/mandatory/sample_notices.sql @@ -469,3 +469,29 @@ INSERT IGNORE INTO `letter` (`module`, `code`, `branchcode`, `name`, `is_html`, ', 'print', 'default'); + +INSERT IGNORE INTO `letter` (module, code, name, title, content, is_html, message_transport_type) VALUES ('members', 'STAFF_VER_OPAC_REG', 'New patron Opac Self-Registration to verify', 'Verify new Opac patron self registration', '

Opac self registration pending verification

+

Submitted Opac patron self registration:

+ +

+

+ If you wish to create a Koha patron account thereby giving this patron Opac access please click on this verification link: +

+

+ <>/cgi-bin/koha/opac-registration-verify.pl?token=<>&approved=1 +

+

+ If you did not initiate this request, you may safely ignore this one-time message. The request will expire shortly. +

', 1, 'email'); diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/opac.pref b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/opac.pref index c705a288c3..202aca8f78 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/opac.pref +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/opac.pref @@ -818,6 +818,19 @@ OPAC: - "library patrons to register or modify their account via the OPAC." - "
NOTE: This needs PatronSelfRegistrationDefaultCategory to be set to a valid patron category code." - + - "Choose email address that self registration verification emails will be sent to: " + - pref: PatronSelfRegistrationVerificationRecipient + default: RegisteringPatron + choices: + RegisteringPatron: email address of Self registering patron + PatronSelfRegistrationVerificationRecipientAddress: PatronSelfRegistrationVerificationRecipientAddress + BranchEmailAddress: email address of branch + KohaAdminEmailAddress: KohaAdminEmailAddress + - "
NOTE: This system preferences requires the PatronSelfRegistrationVerifyByEmail to be set to Require." + - "
If you choose PatronSelfRegistrationVerificationRecipientAddress you have to enter a valid email address:" + - pref: PatronSelfRegistrationVerificationRecipientAddress + class: email + - - pref: PatronSelfRegistrationVerifyByEmail choices: yes: Require diff --git a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-registration-confirmation.tt b/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-registration-confirmation.tt index 2fc4493983..edeb361910 100644 --- a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-registration-confirmation.tt +++ b/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-registration-confirmation.tt @@ -31,6 +31,25 @@
[% END %] + [% IF verificationapproved == 'approved' %] +
+

New patron registered!

+ +

You have successfully registered a new Koha patron account for [% borrower.firstname | html %] [% borrower.surname | html %].

+ +

Please copy the username and password listed below into an email to [% borrower.firstname | html %] [% borrower.surname | html %]'s email [% borrower.email | html %]:

+ +

+ Username: + [% borrower.userid | html %] +

+

+ Password: + [% password_cleartext | html %] +

+

Please ask the patron to login and change their password.

+
+ [% ELSE %]

Registration Complete!

@@ -65,7 +84,7 @@
[% PatronSelfRegistrationAdditionalInstructions | $raw %]
- + [% END %]
[% SET OpacNavRight = KohaNews.get( location => "OpacNavRight", lang => news_lang, library => branchcode ) %] diff --git a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-registration-email-sent.tt b/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-registration-email-sent.tt index 1a4bdce4d4..036f19bd30 100644 --- a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-registration-email-sent.tt +++ b/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-registration-email-sent.tt @@ -25,6 +25,7 @@ [% ELSE %]
[% END %] + [% IF verificationrecipient == 'RegisteringPatron' %]

Please confirm your registration

@@ -34,6 +35,17 @@

Your account will not be activated until you follow the link provided in the confirmation email.

+ [% ELSE %] +
+
+

Thank you for submitting your library registration

+ +

A library staff member will review your registration shortly, and if approved an email will be sent to [% email | html %] containing your OPAC login credentials.

+ +

Your account will not be activated until it has been approved by a library staff member.

+
+
+ [% END %]
diff --git a/opac/opac-memberentry.pl b/opac/opac-memberentry.pl index 3f6d8a8735..b877e083ea 100755 --- a/opac/opac-memberentry.pl +++ b/opac/opac-memberentry.pl @@ -176,21 +176,56 @@ if ( $action eq 'create' ) { Koha::Patron::Modification->new( \%borrower )->store(); - #Send verification email - my $letter = C4::Letters::GetPreparedLetter( - module => 'members', - letter_code => 'OPAC_REG_VERIFY', - lang => 'default', # Patron does not have a preferred language defined yet - tables => { - borrower_modifications => $verification_token, - }, - ); + my $verificationrecipient = C4::Context->preference("PatronSelfRegistrationVerificationRecipient"); + my $customverificationrecipient = C4::Context->preference("PatronSelfRegistrationVerificationRecipientAddress"); + # Determine the 'to_address' of the verification email + my $toaddress; + if ($verificationrecipient eq "BranchEmailAddress" ) { + my $library = Koha::Libraries->find( $borrower{branchcode} ); + $toaddress = $library->inbound_email_address; + } + elsif ( $verificationrecipient eq "KohaAdminEmailAddress" ) { + $toaddress = C4::Context->preference('ReplytoDefault') + || C4::Context->preference('KohaAdminEmailAddress'); + + } elsif ( $verificationrecipient eq "RegisteringPatron" ) { + $toaddress = $borrower{'email'} + } else { + $toaddress = + $customverificationrecipient + || C4::Context->preference('ReplytoDefault') + || C4::Context->preference('KohaAdminEmailAddress'); + } + $template->param( verificationrecipient => $verificationrecipient ); + + my $letter; + if ($verificationrecipient eq "RegisteringPatron" ) { + # Send verification email directly to registering patron + $letter = C4::Letters::GetPreparedLetter( + module => 'members', + letter_code => 'OPAC_REG_VERIFY', + lang => 'default', # Patron does not have a preferred language defined yet + tables => { + borrower_modifications => $verification_token, + }, + ); + } else { + # Send verification email to library + $letter = C4::Letters::GetPreparedLetter( + module => 'members', + letter_code => 'STAFF_VER_OPAC_REG', + lang => 'default', # Patron does not have a preferred language defined yet + tables => { + borrower_modifications => $verification_token, + }, + ); + } C4::Letters::EnqueueLetter( { letter => $letter, message_transport_type => 'email', - to_address => $borrower{'email'}, + to_address => $toaddress, from_address => C4::Context->preference('KohaAdminEmailAddress'), } diff --git a/opac/opac-registration-verify.pl b/opac/opac-registration-verify.pl index d408d5c5ae..32cf5bb167 100755 --- a/opac/opac-registration-verify.pl +++ b/opac/opac-registration-verify.pl @@ -38,6 +38,7 @@ unless ( C4::Context->preference('PatronSelfRegistration') ) { my $token = $cgi->param('token'); my $m = Koha::Patron::Modifications->find( { verification_token => $token } ); +my $verificationapproval = $cgi->param('approved'); my ( $template, $borrowernumber, $cookie ); @@ -67,6 +68,8 @@ if ( delete $patron_attrs->{changed_fields}; my $patron = Koha::Patron->new( $patron_attrs )->store; + $template->param( verificationapproval => $verificationapproval ) if $verificationapproval; + Koha::Patron::Consent->new({ borrowernumber => $patron->borrowernumber, type => 'GDPR_PROCESSING', given_on => $consent_dt })->store if $consent_dt; if ($patron) { -- 2.11.0