From 5d0a6c764e7c174d16b206eccd4e96c47bff0b16 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Fri, 6 May 2022 11:45:22 +0100 Subject: [PATCH] Bug 30611: (follow-up) Use constants Content-Type: text/plain; charset=utf-8 Update ternary for token timeout to use perl constants Signed-off-by: Marcel de Rooy --- Koha/Patron/Password/Recovery.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Koha/Patron/Password/Recovery.pm b/Koha/Patron/Password/Recovery.pm index a7d24ece40..0f1882bf84 100644 --- a/Koha/Patron/Password/Recovery.pm +++ b/Koha/Patron/Password/Recovery.pm @@ -23,6 +23,9 @@ use C4::Letters; use Crypt::Eksblowfish::Bcrypt qw( en_base64 ); use Koha::DateUtils qw( dt_from_string ); +use constant PATRON => 2; +use constant STAFF => 5; + our (@ISA, @EXPORT_OK); BEGIN { require Exporter; @@ -115,7 +118,7 @@ sub SendPasswordRecoveryEmail { } while ( substr ( $uuid_str, -1, 1 ) eq '.' ); # insert into database - my $days = $staff ? 5 : 2; + my $days = $staff ? STAFF : PATRON; my $expirydate = dt_from_string()->add( days => $days ); if ($update) { -- 2.20.1