Index: openacs-4/packages/ims-ent/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ims-ent/tcl/dotlrn-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/ims-ent/tcl/dotlrn-procs.tcl	21 Jul 2004 21:04:29 -0000	1.4
+++ openacs-4/packages/ims-ent/tcl/dotlrn-procs.tcl	21 Jul 2004 23:52:39 -0000	1.5
@@ -35,9 +35,12 @@
                         -authority_id $authority_id \
                         -impl_id $impl_id]
 
-    set userPassword [auth::ldap::get_user -username $username -parameters $parameters -element "userPassword"]
+    set userPassword [auth::ldap::get_user -username $ims_id -parameters $parameters -element "userPassword"]
+    if { [llength $search_result] != 1 } {
+	return
+    }
     lappend parameters InfoAttributeMap "first_names=givenName;last_name=sn;email=mail;field_name=userClass"
-    array set info_result [auth::local_ldap::user_info::GetUserInfo $username $parameters]
+    array set info_result [auth::local_ldap::user_info::GetUserInfo $ims_id $parameters]
 
     array set user_info $info_result(user_info)
     set user_id [ad_user_new  $user_info(email) \