From 8cefc4e574e3c3f1b41526819a4996fd2c9d81ef Mon Sep 17 00:00:00 2001
From: Adirelle <adirelle@tagada-team.net>
Date: Mon, 14 Nov 2011 11:33:29 +0100
Subject: [PATCH] Removed leftover query_fetch_first.

---
 Redmine.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Redmine.pm b/Redmine.pm
index 656e523..348e2ef 100644
--- a/Redmine.pm
+++ b/Redmine.pm
@@ -373,9 +373,9 @@ sub check_login {
 			unless $CanUseLDAPAuth;
 
 		# Get LDAP server informations
-		my($host, $port, $tls, $account, $account_password, $base_dn, $attr_login) = query_fetch_first(
-			$dbh,
+		my($host, $port, $tls, $account, $account_password, $base_dn, $attr_login) = $dbh->selectrow_array(
 			"SELECT host,port,tls,account,account_password,base_dn,attr_login from auth_sources WHERE id = ?",
+			undef,
 			$auth_source_id
 		);