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.61 -r1.62
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	27 Oct 2014 16:41:15 -0000	1.61
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	7 Aug 2017 23:48:09 -0000	1.62
@@ -46,7 +46,7 @@
         do an abort if security violation
     } {
         ad_returnredirect "not-allowed"
-        return -code error
+        ad_script_abort
     }
 
     ad_proc -public get_user_types {} {
@@ -97,7 +97,7 @@
 
         # default ID to email address
         if {$id eq ""} {
-            set id [cc_email_from_party $user_id]
+            set id [party::email -party_id $user_id]
         }
 
         # set up extra vars
@@ -443,3 +443,9 @@
 
 }
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: