Lines 193-203
sub AUTOLOAD {
Link Here
|
193 |
sub check_password { |
193 |
sub check_password { |
194 |
my ( $self, $pwd ) = @_; |
194 |
my ( $self, $pwd ) = @_; |
195 |
|
195 |
|
196 |
defined $pwd |
196 |
# you gotta give me something (at least ''), or no deal |
197 |
or return 0; # you gotta give me something (at least ''), or no deal |
197 |
return 0 unless defined $pwd; |
198 |
|
198 |
|
199 |
return 1 |
199 |
# If the record has a NULL password, accept '' as match |
200 |
if $pwd eq q{}; # if the record has a NULL password, accept '' as match |
200 |
return $pwd eq q{} unless $self->{password}; |
201 |
|
201 |
|
202 |
my $dbh = C4::Context->dbh; |
202 |
my $dbh = C4::Context->dbh; |
203 |
my $ret = 0; |
203 |
my $ret = 0; |
204 |
- |
|
|