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>

diff --git a/Koha/Patron/Password/Recovery.pm b/Koha/Patron/Password/Recovery.pm
index a7d24ec..0f1882b 100644 (file)
--- 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) {