View | Details | Raw Unified | Return to bug 11693
Collapse All | Expand All

(-)a/opac/opac-memberentry.pl (+2 lines)
Lines 24-29 use String::Random qw( random_string ); Link Here
24
use C4::Auth;
24
use C4::Auth;
25
use C4::Output;
25
use C4::Output;
26
use C4::Members;
26
use C4::Members;
27
use C4::Form::MessagingPreferences;
27
use Koha::Borrower::Modifications;
28
use Koha::Borrower::Modifications;
28
use C4::Branch qw(GetBranchesLoop);
29
use C4::Branch qw(GetBranchesLoop);
29
use C4::Scrubber;
30
use C4::Scrubber;
Lines 146-151 if ( $action eq 'create' ) { Link Here
146
                  C4::Context->preference('OpacPasswordChange') );
147
                  C4::Context->preference('OpacPasswordChange') );
147
148
148
            my ( $borrowernumber, $password ) = AddMember_Opac(%borrower);
149
            my ( $borrowernumber, $password ) = AddMember_Opac(%borrower);
150
            C4::Form::MessagingPreferences::handle_form_action($cgi, { borrowernumber => $borrowernumber }, $template, 1, C4::Context->preference('PatronSelfRegistrationDefaultCategory') ) if $borrowernumber && C4::Context->preference('EnhancedMessagingPreferences');
149
151
150
            $template->param( password_cleartext => $password );
152
            $template->param( password_cleartext => $password );
151
            $template->param(
153
            $template->param(
(-)a/opac/opac-registration-verify.pl (-1 / +2 lines)
Lines 22-27 use CGI qw ( -utf8 ); Link Here
22
use C4::Auth;
22
use C4::Auth;
23
use C4::Output;
23
use C4::Output;
24
use C4::Members;
24
use C4::Members;
25
use C4::Form::MessagingPreferences;
25
use Koha::Borrower::Modifications;
26
use Koha::Borrower::Modifications;
26
27
27
my $cgi = new CGI;
28
my $cgi = new CGI;
Lines 56-61 if ( $m->Verify() ) { Link Here
56
57
57
    if ($borrowernumber) {
58
    if ($borrowernumber) {
58
        Koha::Borrower::Modifications->DelModifications({ verification_token => $token });
59
        Koha::Borrower::Modifications->DelModifications({ verification_token => $token });
60
        C4::Form::MessagingPreferences::handle_form_action($cgi, { borrowernumber => $borrowernumber }, $template, 1, C4::Context->preference('PatronSelfRegistrationDefaultCategory') ) if C4::Context->preference('EnhancedMessagingPreferences');
59
61
60
        $template->param( password_cleartext => $password );
62
        $template->param( password_cleartext => $password );
61
        $template->param(
63
        $template->param(
62
- 

Return to bug 11693