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.5 -r1.6
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	13 Nov 2001 17:57:30 -0000	1.5
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	27 Nov 2001 23:32:03 -0000	1.6
@@ -19,6 +19,12 @@
 
 namespace eval dotlrn {
     
+    ad_proc -private do_abort {} {
+	do an abort if security violation
+    } {
+	return -code error
+    }
+
     ad_proc -public user_add {
 	{-role "user"}
 	user_id	
@@ -183,6 +189,8 @@
     } {
 	check if a user can admin a community
     } {
+	# FIXME
+	return 1
     }
 
     ad_proc -public require_user_admin_community {
@@ -191,6 +199,9 @@
     } {
 	require that user be able to admin a community
     } {
+	if {![user_can_admin_community_p -user_id $user_id $community_id]} {
+	    do_abort
+	}
     }
 
 }