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:
parent
0810027bfa
commit
f56ad87648
1 changed files with 6 additions and 6 deletions
|
@ -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 a new issue