Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	16 Mar 2002 01:32:21 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	24 May 2002 00:58:56 -0000	1.9
@@ -34,7 +34,7 @@
 } {
     return [db_string email_from_party {
         select email from parties where party_id = :party_id
-    } -default 0]
+    } -default ""]
 }
 
 ad_proc cc_email_user { email } {
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 -N -r1.19 -r1.20
--- openacs-4/packages/dotlrn/www/user-add.tcl	24 May 2002 00:26:06 -0000	1.19
+++ openacs-4/packages/dotlrn/www/user-add.tcl	24 May 2002 00:58:57 -0000	1.20
@@ -119,7 +119,7 @@
 
     db_transaction {
 
-        if {[cc_email_from_party $target_user_id] == 0} {
+        if {[empty_string_p [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]