cleanup dn from @domain since we extract it from e-mail

diff --git a/lib/LDAP/Koha.pm b/lib/LDAP/Koha.pm
index e0b70bf..b497c2f 100644 (file)
--- 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 );