|
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 |
- |
|
|