Index: openacs-4/packages/ims-ent/tcl/ims-ent-dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ims-ent/tcl/ims-ent-dotlrn-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ims-ent/tcl/ims-ent-dotlrn-procs.tcl	2 Jul 2004 20:35:37 -0000	1.3
+++ openacs-4/packages/ims-ent/tcl/ims-ent-dotlrn-procs.tcl	21 Jul 2004 18:18:29 -0000	1.4
@@ -602,6 +602,8 @@
             element_messages {}
         }
 
+	set user_id ""
+
 	# if the community_id doesn't exist, then its an error
 	if [empty_string_p $community_id] {
 	    set success_p 0
@@ -613,8 +615,10 @@
 
 	    set proc_name [parameter::get_from_package_key -package_key ims-ent -parameter UserIdReturnProc]
 	    # execute the proc and get the user_id
-	    set user_id [${proc_name} $id -authority_id $authority_id]
 
+	    set proc_list [list [lindex ${proc_name} 0] [lindex ${proc_name} 1] $id -authority_id $authority_id]
+	    set user_id [eval $proc_list]
+
 	    if { [empty_string_p $user_id] } {
 		# Updating/deleting a user that doesn't exist
 		set success_p 0
@@ -653,7 +657,7 @@
 		    dotlrn_community::add_user -rel_type $rel_type $community_id $user_id
 
 		    # lets update the given ID type for this user_id
-		    ims_enterprise::dotlrn::set_carnet_type -carnet $id -roletype $roletype
+#		    ims_enterprise::dotlrn::set_carnet_type -carnet $id -roletype $roletype
 		}
 		set result(message) "<membership>"
 	    }  {
@@ -678,4 +682,6 @@
 			  -element_messages $result(element_messages)]
 
     }    
+
+    return $user_id
 }