--- /var/dhbw/redmine/extra/svn/Redmine.pm	2010-03-27 18:29:55.000000000 +0000
+++ Redmine.pm	2010-03-28 15:08:11.000000000 +0000
@@ -302,7 +302,7 @@
           $sthldap->execute($auth_source_id);
           while (my @rowldap = $sthldap->fetchrow_array) {
             my $ldap = Authen::Simple::LDAP->new(
-                host    =>      ($rowldap[2] eq "1" || $rowldap[2] eq "t") ? "ldaps://$rowldap[0]" : $rowldap[0],
+                host    =>      ($rowldap[2] eq "1" || $rowldap[2] eq "t") ? "ldaps://$rowldap[0]" : "ldap://".$rowldap[0].":".$rowldap[1],
                 port    =>      $rowldap[1],
                 basedn  =>      $rowldap[5],
                 binddn  =>      $rowldap[3] ? $rowldap[3] : "",