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

(-)a/C4/Auth.pm (-1 / +9 lines)
Lines 45-50 use List::MoreUtils qw/ any /; Link Here
45
use Encode qw( encode is_utf8);
45
use Encode qw( encode is_utf8);
46
use C4::Auth_with_shibboleth;
46
use C4::Auth_with_shibboleth;
47
use Net::CIDR;
47
use Net::CIDR;
48
use C4::Log qw/logaction/;
48
49
49
# use utf8;
50
# use utf8;
50
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout);
51
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout);
Lines 1862-1867 sub checkpw { Link Here
1862
            $patron->update({ login_attempts => $patron->login_attempts + 1 });
1863
            $patron->update({ login_attempts => $patron->login_attempts + 1 });
1863
        }
1864
        }
1864
    }
1865
    }
1866
1867
    # Optionally log success or failure
1868
    if( $patron && $passwd_ok && C4::Context->preference('AuthSuccessLog') ) {
1869
        logaction( 'AUTH', 'SUCCESS', $patron->id, "Valid password for $userid", $type );
1870
    } elsif( !$passwd_ok && C4::Context->preference('AuthFailureLog') ) {
1871
        logaction( 'AUTH', 'FAILURE', 0, "Wrong password for $userid", $type );
1872
    }
1873
1865
    return @return;
1874
    return @return;
1866
}
1875
}
1867
1876
1868
- 

Return to bug 21190