ukamnya
/
Redmine-mod-perl-auth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed some comparisons.

1.x
Adirelle 2011-11-13 10:38:18 +01:00
parent 12937cd387
commit 57f4784158
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Redmine.pm
View File

@ -310,7 +310,7 @@ sub check_login {
} }
# Password is ok, check if account if locked # Password is ok, check if account if locked
return (FORBIDDEN, "inactive account: '$user'") unless $status eq 1; return (FORBIDDEN, "inactive account: '$user'") unless $status == 1;
$r->log->debug("successfully authenticated as active redmine user '$user'"); $r->log->debug("successfully authenticated as active redmine user '$user'");
@ -458,7 +458,7 @@ sub query_fetch_first {
# tell if a value returned from SQL is "true" # tell if a value returned from SQL is "true"
sub is_true { sub is_true {
my $value = shift; my $value = shift;
return defined($value) && ($value eq "1" || $value eq 1 || $value eq "t"); return defined($value) && ($value == 1 || $value eq "t");
} }
# build credential cache key # build credential cache key