my $username = $cgi->param('username');
my $password = $cgi->param('password');
my ($status, $cardnumber, $userid) = C4::Auth::checkpw( C4::Context->dbh, $username, $password );
if ( $status ) {
if ( $status )
# Get the borrower
my $patron = Koha::Patrons->find( { userid => $userid } );
return { id => $patron->borrowernumber };
else
}
else {
return { code => 'PatronNotFound' };
if ( $patron->lost )
return { code => 'PatronLostCard' };
=head2 GetPatronInfo
-