Lines 104-109
sub SendPasswordRecoveryEmail {
Link Here
|
104 |
my $borrower = shift; # Koha::Patron |
104 |
my $borrower = shift; # Koha::Patron |
105 |
my $userEmail = shift; #to_address (the one specified in the request) |
105 |
my $userEmail = shift; #to_address (the one specified in the request) |
106 |
my $update = shift; |
106 |
my $update = shift; |
|
|
107 |
my $staff = shift // 0; |
107 |
|
108 |
|
108 |
my $schema = Koha::Database->new->schema; |
109 |
my $schema = Koha::Database->new->schema; |
109 |
|
110 |
|
Lines 114-121
sub SendPasswordRecoveryEmail {
Link Here
|
114 |
} while ( substr ( $uuid_str, -1, 1 ) eq '.' ); |
115 |
} while ( substr ( $uuid_str, -1, 1 ) eq '.' ); |
115 |
|
116 |
|
116 |
# insert into database |
117 |
# insert into database |
|
|
118 |
my $days = $staff ? 5 : 2; |
117 |
my $expirydate = |
119 |
my $expirydate = |
118 |
dt_from_string()->add( days => 2 ); |
120 |
dt_from_string()->add( days => $days ); |
119 |
if ($update) { |
121 |
if ($update) { |
120 |
my $rs = |
122 |
my $rs = |
121 |
$schema->resultset('BorrowerPasswordRecovery') |
123 |
$schema->resultset('BorrowerPasswordRecovery') |
Lines 141-147
sub SendPasswordRecoveryEmail {
Link Here
|
141 |
# prepare the email |
143 |
# prepare the email |
142 |
my $letter = C4::Letters::GetPreparedLetter( |
144 |
my $letter = C4::Letters::GetPreparedLetter( |
143 |
module => 'members', |
145 |
module => 'members', |
144 |
letter_code => 'PASSWORD_RESET', |
146 |
letter_code => $staff ? 'STAFF_PASSWORD_RESET' : 'PASSWORD_RESET', |
145 |
branchcode => $borrower->branchcode, |
147 |
branchcode => $borrower->branchcode, |
146 |
lang => $borrower->lang, |
148 |
lang => $borrower->lang, |
147 |
substitute => |
149 |
substitute => |