Index: openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	23 Jan 2002 00:15:43 -0000	1.19
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	23 Jan 2002 00:55:01 -0000	1.20
@@ -33,13 +33,26 @@
 	return [db_list_of_lists select_user_types {}]
     }
 
+    ad_proc -public user_p {
+        {-user_id:required}
+    } {
+        check if a user is a dotLRN user
+    } {
+        return [db_string select_count "select count(*) from dotlrn_users where user_id= :user_id"]
+    }
+
     ad_proc -public user_add {
 	{-rel_type "dotlrn_user_rel"}
 	{-user_id:required}
 	{-type_id 1}
     } {
 	Add a user as a dotLRN user
     } {
+        # Check if the user is already a dotLRN user
+        if {[user_p -user_id $user_id]} {
+            return
+        }
+
 	# set up extra vars
 	set extra_vars [ns_set create]
 	
@@ -124,6 +137,8 @@
 	user_id
     } {
 	returns the dotLRN user role or empty string if not a dotLRN user
+        
+        FIXME: THIS DOES NOT WORK ANYMORE!
     } {
 	return [db_string select_user_type {} -default ""]
     }