Index: openacs-4/packages/dotlrn/www/user-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/dotlrn/www/user-add.tcl	6 Mar 2002 00:17:31 -0000	1.13
+++ openacs-4/packages/dotlrn/www/user-add.tcl	8 Mar 2002 20:11:54 -0000	1.14
@@ -100,10 +100,16 @@
         target_user_id id email first_names last_name referer type access_level read_private_data_p
 
     db_transaction {
-        # create the ACS user
-        set password [ad_generate_random_string]
-        set target_user_id [ad_user_new $email $first_names $last_name $password "" "" "" "t" "approved" $target_user_id]
 
+        if {![cc_email_from_party $target_user_id]} {
+            # create the ACS user
+            set password [ad_generate_random_string]
+            set target_user_id [ad_user_new \
+                $email $first_names $last_name $password \
+                "" "" "" "t" "approved" $target_user_id \
+            ]
+        }
+
         # make the user a dotLRN user
         dotlrn::user_add -id $id -type $type -access_level $access_level -user_id $target_user_id