Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Brendan Gallagher brendan@bywatersolutions.com
+ 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;
my $dbh = C4::Context->dbh;
my $ret = 0;
- ($ret) = checkpw($dbh, $self->{userid}, $pwd);
+ ($ret) = checkpw( $dbh, $self->{userid}, $pwd );