View | Details | Raw Unified | Return to bug 16610
Collapse All | Expand All

(-)a/C4/SIP/ILS/Patron.pm (-5 / +4 lines)
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
- 

Return to bug 16610