Index: openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl	20 Apr 2004 21:13:19 -0000	1.9
+++ openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl	7 Aug 2017 23:48:09 -0000	1.10
@@ -39,7 +39,7 @@
         A new user has been added: process dotLRN specific stuff
     } {
         # Get the user's email address
-        set email [cc_email_from_party $user_id]
+        set email [party::email -party_id $user_id]
 
         # Loop through patterns
         foreach pattern [automatic_email_patterns] {
@@ -109,3 +109,9 @@
 
 }
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: