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 1861-1866 sub checkpw { Link Here
1861
            $patron->update({ login_attempts => $patron->login_attempts + 1 });
1862
            $patron->update({ login_attempts => $patron->login_attempts + 1 });
1862
        }
1863
        }
1863
    }
1864
    }
1865
1866
    # Optionally log success or failure
1867
    if( $patron && $passwd_ok && C4::Context->preference('AuthSuccessLog') ) {
1868
        logaction( 'AUTH', 'SUCCESS', $patron->id, "Valid password for $userid", $type );
1869
    } elsif( !$passwd_ok && C4::Context->preference('AuthFailureLog') ) {
1870
        logaction( 'AUTH', 'FAILURE', 0, "Wrong password for $userid", $type );
1871
    }
1872
1864
    return @return;
1873
    return @return;
1865
}
1874
}
1866
1875
1867
- 

Return to bug 21190