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 (cherry picked from commitf56ad87648) Signed-off-by: Julian Maurice <julian.maurice@biblibre.com> (cherry picked from commit94e6b71b4e) Signed-off-by: Frédéric Demians <f.demians@tamil.fr>
This commit is contained in:
parent
44375ad31f
commit
00211efcc4
|
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue