Lines 23-28
use C4::Letters;
Link Here
|
23 |
use Crypt::Eksblowfish::Bcrypt qw( en_base64 ); |
23 |
use Crypt::Eksblowfish::Bcrypt qw( en_base64 ); |
24 |
use Koha::DateUtils qw( dt_from_string ); |
24 |
use Koha::DateUtils qw( dt_from_string ); |
25 |
|
25 |
|
|
|
26 |
use constant PATRON => 2; |
27 |
use constant STAFF => 5; |
28 |
|
26 |
our (@ISA, @EXPORT_OK); |
29 |
our (@ISA, @EXPORT_OK); |
27 |
BEGIN { |
30 |
BEGIN { |
28 |
require Exporter; |
31 |
require Exporter; |
Lines 115-121
sub SendPasswordRecoveryEmail {
Link Here
|
115 |
} while ( substr ( $uuid_str, -1, 1 ) eq '.' ); |
118 |
} while ( substr ( $uuid_str, -1, 1 ) eq '.' ); |
116 |
|
119 |
|
117 |
# insert into database |
120 |
# insert into database |
118 |
my $days = $staff ? 5 : 2; |
121 |
my $days = $staff ? STAFF : PATRON; |
119 |
my $expirydate = |
122 |
my $expirydate = |
120 |
dt_from_string()->add( days => $days ); |
123 |
dt_from_string()->add( days => $days ); |
121 |
if ($update) { |
124 |
if ($update) { |
122 |
- |
|
|