Bug 14507 [QA Followup] - Restore comment, tidy sub

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

Signed-off-by: Brendan Gallagher brendan@bywatersolutions.com
This commit is contained in:
Kyle Hall 2016-02-19 12:51:21 +00:00 committed by Brendan Gallagher
parent 0810027bfa
commit f56ad87648

View file

@ -192,17 +192,17 @@ sub AUTOLOAD {
}
sub check_password {
my ($self, $pwd) = @_;
my ( $self, $pwd ) = @_;
defined $pwd or return 0; # you gotta give me something (at least ''), or no deal
defined $pwd
or return 0; # you gotta give me something (at least ''), or no deal
if ($pwd eq q{}) {
return 1;
}
return 1
if $pwd eq q{}; # if the record has a NULL password, accept '' as match
my $dbh = C4::Context->dbh;
my $ret = 0;
($ret) = checkpw($dbh, $self->{userid}, $pwd);
($ret) = checkpw( $dbh, $self->{userid}, $pwd );
return $ret;
}