Index: openacs-4/packages/dotlrn/www/applets-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/applets-chunk.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/dotlrn/www/applets-chunk.tcl 12 Jul 2002 21:34:17 -0000 1.6 +++ openacs-4/packages/dotlrn/www/applets-chunk.tcl 13 Jul 2002 17:49:25 -0000 1.7 @@ -24,10 +24,12 @@ } -query { } +set community_id [dotlrn_community::get_community_id] + # this chunk must be restricted to admins of the community only dotlrn::require_user_admin_community \ -user_id [ad_conn user_id] \ - -community_id [dotlrn_community::get_community_id] + -community_id $community_id # Get active applets set list_of_active_applets [dotlrn_community::list_active_applets -community_id $community_id]