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

(-)a/C4/Auth.pm (-3 / +12 lines)
Lines 764-775 sub _session_log { Link Here
764
}
764
}
765
765
766
sub _timeout_syspref {
766
sub _timeout_syspref {
767
    my $timeout = C4::Context->preference('timeout') || 600;
767
    my $default_timeout = 600;
768
    my $timeout = C4::Context->preference('timeout') || $default_timeout;
768
769
769
    # value in days, convert in seconds
770
    # value in days, convert in seconds
770
    if ( $timeout =~ /(\d+)[dD]/ ) {
771
    if ( $timeout =~ /^(\d+)[dD]$/ ) {
771
        $timeout = $1 * 86400;
772
        $timeout = $1 * 86400;
772
    }
773
    }
774
    # value in hours, convert in seconds
775
    elsif ( $timeout =~ /^(\d+)[hH]$/ ) {
776
        $timeout = $1 * 3600;
777
    }
778
    elsif ( $timeout !~ m/^\d+$/ ) {
779
        warn "The value of the system preference 'timeout' is not correct, defaulting to $default_timeout";
780
        $timeout = $default_timeout;
781
    }
782
773
    return $timeout;
783
    return $timeout;
774
}
784
}
775
785
776
- 

Return to bug 20804