From 9321cb27258346136fb30f0e909c43d1020ed645 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 15 Sep 2009 13:10:13 +0000
Subject: [PATCH 1/1] cleanup dn from @domain since we extract it from e-mail

---
 lib/LDAP/Koha.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/LDAP/Koha.pm b/lib/LDAP/Koha.pm
index e0b70bf..b497c2f 100644
--- a/lib/LDAP/Koha.pm
+++ b/lib/LDAP/Koha.pm
@@ -229,6 +229,8 @@ sub search {
 					undef $entry;
 				}
 
+				$dn =~ s{@[^,]+}{};
+
 				$entry = Net::LDAP::Entry->new;
 				$entry->dn( $dn );
 
-- 
2.20.1