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