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

(-)a/opac/opac-memberentry.pl (+10 lines)
Lines 22-27 use Digest::MD5 qw( md5_base64 md5_hex ); Link Here
22
use String::Random qw( random_string );
22
use String::Random qw( random_string );
23
23
24
use C4::Auth;
24
use C4::Auth;
25
use C4::Letters qw/SendAlerts/;
25
use C4::Output;
26
use C4::Output;
26
use C4::Members;
27
use C4::Members;
27
use Koha::Borrower::Modifications;
28
use Koha::Borrower::Modifications;
Lines 153-158 if ( $action eq 'create' ) { Link Here
153
                  C4::Context->preference(
154
                  C4::Context->preference(
154
                    'PatronSelfRegistrationAdditionalInstructions')
155
                    'PatronSelfRegistrationAdditionalInstructions')
155
            );
156
            );
157
            if( C4::Context->preference('AutoEmailOPACUser') ) {
158
                my $external = {
159
                    borrowernumber => $borrowernumber,
160
                    emailaddr => $borrower{email}||$borrower{emailpro},
161
                    branchcode => $borrower{branchcode},
162
                    password =>  $password,
163
                };
164
                SendAlerts ( 'members', $external, "ACCTDETAILS" );
165
            }
156
        }
166
        }
157
    }
167
    }
158
}
168
}
(-)a/opac/opac-registration-verify.pl (-1 / +10 lines)
Lines 20-25 use Modern::Perl; Link Here
20
use CGI;
20
use CGI;
21
21
22
use C4::Auth;
22
use C4::Auth;
23
use C4::Letters qw/SendAlerts/;
23
use C4::Output;
24
use C4::Output;
24
use C4::Members;
25
use C4::Members;
25
use Koha::Borrower::Modifications;
26
use Koha::Borrower::Modifications;
Lines 65-70 if ( $m->Verify() ) { Link Here
65
              C4::Context->preference(
66
              C4::Context->preference(
66
                'PatronSelfRegistrationAdditionalInstructions')
67
                'PatronSelfRegistrationAdditionalInstructions')
67
        );
68
        );
69
        if( C4::Context->preference('AutoEmailOPACUser') ) {
70
            my $external = {
71
                borrowernumber => $borrowernumber,
72
                emailaddr => $borrower->{email}||$borrower->{emailpro},
73
                branchcode => $borrower->{branchcode},
74
                password =>  $password,
75
            };
76
            SendAlerts ( 'members', $external, "ACCTDETAILS" );
77
        }
68
    }
78
    }
69
79
70
}
80
}
71
- 

Return to bug 13096