Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.201 -r1.202
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	16 Jan 2008 10:14:45 -0000	1.201
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	13 Dec 2008 12:53:49 -0000	1.202
@@ -379,15 +379,6 @@
 	util_memoize_flush "dotlrn_community::get_package_id_not_cached $community_id"
     }
 
-    ad_proc admin_access_p {
-        community_id
-    } {
-        Checks admin access to a community
-    } {
-        # HACK FOR NOW!! (ben) FIXIT
-        return 1
-    }
-
     ad_proc -public get_url {
         {-current_node_id ""}
         {-package_id ""}
Index: openacs-4/packages/dotlrn/www/applet-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/applet-add.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn/www/applet-add.tcl	8 Aug 2006 21:26:23 -0000	1.9
+++ openacs-4/packages/dotlrn/www/applet-add.tcl	13 Dec 2008 12:53:49 -0000	1.10
@@ -33,10 +33,7 @@
 set community_id [dotlrn_community::get_community_id]
 
 # Check access
-if {![dotlrn_community::admin_access_p $community_id]} {
-    ad_returnredirect /
-    ad_script_abort
-}
+dotlrn::require_user_admin_community -user_id [ad_conn user_id] -community_id $community_id
 
 # Add the applet
 dotlrn_community::add_applet_to_community $community_id $applet_key
Index: openacs-4/packages/dotlrn/www/applet-remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/applet-remove.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn/www/applet-remove.tcl	15 May 2007 20:14:25 -0000	1.9
+++ openacs-4/packages/dotlrn/www/applet-remove.tcl	13 Dec 2008 12:53:49 -0000	1.10
@@ -25,10 +25,7 @@
 }
 
 # Check access
-if {![dotlrn_community::admin_access_p $community_id]} {
-    ad_returnredirect /
-    return
-}
+dotlrn::require_user_admin_community -user_id [ad_conn user_id] -community_id $community_id
 
 # Add the applet
 dotlrn_community::remove_applet $community_id $applet_key