From 5f81b5e29e572b78069bbd542c8c51797b00792f Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Fri, 6 May 2022 11:45:22 +0100
Subject: [PATCH] Bug 30611: (follow-up) Use constants

Update ternary for token timeout to use perl constants

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
---
 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.39.5