@@ -, +, @@ t/db_dependent/ILSDI_Services.t --------- -- noisy. -- not noisy --- C4/ILSDI/Services.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) --- a/C4/ILSDI/Services.pm +++ a/C4/ILSDI/Services.pm @@ -321,7 +321,9 @@ Parameters: sub AuthenticatePatron { my ($cgi) = @_; - my ($status, $cardnumber, $userid) = C4::Auth::checkpw( C4::Context->dbh, $cgi->param('username'), $cgi->param('password') ); + my $username = $cgi->param('username'); + my $password = $cgi->param('password'); + my ($status, $cardnumber, $userid) = C4::Auth::checkpw( C4::Context->dbh, $username, $password ); if ( $status ) { # Get the borrower my $borrower = GetMember( cardnumber => $cardnumber ); --