Lines 1813-1820
sub checkpw {
Link Here
|
1813 |
|
1813 |
|
1814 |
if ( $return[0] == 0 ) { |
1814 |
if ( $return[0] == 0 ) { |
1815 |
$patron->update({ login_attempts => $patron->login_attempts + 1 }) if $patron; |
1815 |
$patron->update({ login_attempts => $patron->login_attempts + 1 }) if $patron; |
1816 |
} elsif ( $return[1] == 1 ) { |
1816 |
} elsif ( $return[0] == 1 ) { |
1817 |
$patron->update({ login_attempts => 0 })->store if $patron; |
1817 |
if ( $patron ) { |
|
|
1818 |
# FIXME Koha::Object->update should return a Koha::Object to allow chaining |
1819 |
$patron->update({ login_attempts => 0 }); |
1820 |
$patron->store; |
1821 |
} |
1818 |
} |
1822 |
} |
1819 |
return @return; |
1823 |
return @return; |
1820 |
} |
1824 |
} |
1821 |
- |
|
|