From de2bef606d41857355dac1668fa5c40039e2f740 Mon Sep 17 00:00:00 2001 From: Jean-Philippe Lang Date: Sat, 26 Dec 2009 12:02:24 +0000 Subject: [PATCH] Fixes Redmine.pm for SQLite (#4205). git-svn-id: svn+ssh://rubyforge.org/var/svn/redmine/trunk@3246 e93f8b46-1217-0410-a6f0-8f06a7374b81 --- extra/svn/Redmine.pm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/extra/svn/Redmine.pm b/extra/svn/Redmine.pm index 66dc6c03..1829d2b0 100644 --- a/extra/svn/Redmine.pm +++ b/extra/svn/Redmine.pm @@ -233,11 +233,16 @@ sub is_public_project { my $dbh = connect_database($r); my $sth = $dbh->prepare( - "SELECT * FROM projects WHERE projects.identifier=? and projects.is_public=true;" + "SELECT is_public FROM projects WHERE projects.identifier = ?;" ); $sth->execute($project_id); - my $ret = $sth->fetchrow_array ? 1 : 0; + my $ret = 0; + if (my @row = $sth->fetchrow_array) { + if ($row[0] eq "1" || $row[0] eq "t") { + $ret = 1; + } + } $sth->finish(); $dbh->disconnect(); @@ -295,7 +300,7 @@ sub is_member { $sthldap->execute($auth_source_id); while (my @rowldap = $sthldap->fetchrow_array) { my $ldap = Authen::Simple::LDAP->new( - host => ($rowldap[2] == 1 || $rowldap[2] eq "t") ? "ldaps://$rowldap[0]" : $rowldap[0], + host => ($rowldap[2] eq "1" || $rowldap[2] eq "t") ? "ldaps://$rowldap[0]" : $rowldap[0], port => $rowldap[1], basedn => $rowldap[5], binddn => $rowldap[3] ? $rowldap[3] : "",