From c12b54b181648198c6a8071ee84033ac1d944067 Mon Sep 17 00:00:00 2001
From: "Eric A. Miller" <emiller@cpan.org>
Date: Thu, 14 Nov 2013 20:28:01 -0500
Subject: [PATCH] LDAP login fix (Daniel Tuecks)

---
 Netdisco/Changes                                    | 1 +
 Netdisco/lib/App/Netdisco/Web/Auth/Provider/DBIC.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Netdisco/Changes b/Netdisco/Changes
index ddc6d1c0..d32d9220 100644
--- a/Netdisco/Changes
+++ b/Netdisco/Changes
@@ -22,6 +22,7 @@
   * Set of Port Name (description) fixed to assume OK dialog response
   * Default class of a PoE port is 0 if not otherwise defined
   * Don't try to convert negative mW to dBm in AP power report
+  * LDAP login fix (Daniel Tuecks)
 
 2.019003 - 2013-10-27
 
diff --git a/Netdisco/lib/App/Netdisco/Web/Auth/Provider/DBIC.pm b/Netdisco/lib/App/Netdisco/Web/Auth/Provider/DBIC.pm
index f968abaf..2f51111e 100644
--- a/Netdisco/lib/App/Netdisco/Web/Auth/Provider/DBIC.pm
+++ b/Netdisco/lib/App/Netdisco/Web/Auth/Provider/DBIC.pm
@@ -133,7 +133,7 @@ sub _ldap_search {
     return undef unless defined($filter);
     return undef if (defined $attrs and ref [] ne ref $attrs);
 
-    foreach my $server (@{$conf->{server}}) {
+    foreach my $server (@{$conf->{servers}}) {
         my $opts = $conf->{opts} || {};
         my $ldap = Net::LDAP->new($server, %$opts) or next;
         my $msg  = undef;