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 -N -r1.9 -r1.9.4.1
--- 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:50:01 -0000	1.9.4.1
@@ -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