View | Details | Raw Unified | Return to bug 30611
Collapse All | Expand All

(-)a/Koha/Patron/Password/Recovery.pm (-2 / +4 lines)
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
- 

Return to bug 30611