Index: openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl	30 Jun 2004 18:02:57 -0000	1.7
+++ openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl	12 Jul 2004 14:49:52 -0000	1.8
@@ -111,7 +111,12 @@
     foreach { attribute value } [lindex $search_result 0] {
         if { [string equal $attribute $element] } {
             # Values are always wrapped in an additional list
-            return [lindex $value 0]
+	    # not for dn (roc)
+            if [string equal $element "dn"] {
+		return $value
+	    } else {
+		return [lindex $value 0]
+	    }
         }
     }
     
@@ -224,6 +229,7 @@
     username
     password
     {parameters {}}
+    {authority_id {}}
 } {
     Implements the Authenticate operation of the auth_authentication 
     service contract for LDAP.
@@ -296,6 +302,7 @@
     old_password
     new_password
     {parameters {}}
+    {authority_id {}}
 } {
     Implements the ChangePassword operation of the auth_password 
     service contract for LDAP.
@@ -351,6 +358,7 @@
 ad_proc -private auth::ldap::password::ResetPassword {
     username
     parameters
+    {authority_id {}}
 } {
     Implements the ResetPassword operation of the auth_password 
     service contract for LDAP.