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

(-)a/Koha/Patron/Password/Recovery.pm (-1 / +3 lines)
Lines 110-115 sub GetValidLinkInfo { Link Here
110
                  skip_mail: If true, will not enqueue the letter, but return it
110
                  skip_mail: If true, will not enqueue the letter, but return it
111
                             instead. Use this flag if you want a third party
111
                             instead. Use this flag if you want a third party
112
                             service to handle emailing instead of Koha.
112
                             service to handle emailing instead of Koha.
113
113
=cut
114
=cut
114
115
115
sub SendPasswordRecoveryEmail {
116
sub SendPasswordRecoveryEmail {
Lines 159-165 sub SendPasswordRecoveryEmail { Link Here
159
        my $allowed_list = C4::Context->preference(
160
        my $allowed_list = C4::Context->preference(
160
            'OpacResetPasswordAllowedHosts'
161
            'OpacResetPasswordAllowedHosts'
161
        );
162
        );
162
        my @allowed_hosts = split /[,\s\|]/, $allowed_list if defined $allowed_list;
163
        my @allowed_hosts;
164
        @allowed_hosts = split /[,\s\|]/, $allowed_list if defined $allowed_list;
163
        foreach my $allowed_host (@allowed_hosts) {
165
        foreach my $allowed_host (@allowed_hosts) {
164
           if ($url =~ /^https?:\/\/$allowed_host/) {
166
           if ($url =~ /^https?:\/\/$allowed_host/) {
165
                $url =~ s/{uuid}/$uuid_str/gi;
167
                $url =~ s/{uuid}/$uuid_str/gi;
(-)a/t/db_dependent/api/v1/patrons_password_recovery.t (-11 / +10 lines)
Lines 2-19 Link Here
2
2
3
# This file is part of Koha.
3
# This file is part of Koha.
4
#
4
#
5
# Koha is free software; you can redistribute it and/or modify it under the
5
# Koha is free software; you can redistribute it and/or modify it
6
# terms of the GNU General Public License as published by the Free Software
6
# under the terms of the GNU General Public License as published by
7
# Foundation; either version 3 of the License, or (at your option) any later
7
# the Free Software Foundation; either version 3 of the License, or
8
# version.
8
# (at your option) any later version.
9
#
9
#
10
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
10
# Koha is distributed in the hope that it will be useful, but
11
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
11
# WITHOUT ANY WARRANTY; without even the implied warranty of
12
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
12
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13
# GNU General Public License for more details.
13
#
14
#
14
# You should have received a copy of the GNU General Public License along
15
# You should have received a copy of the GNU General Public License
15
# with Koha; if not, write to the Free Software Foundation, Inc.,
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
- 

Return to bug 19133