Index: openacs-4/packages/dotlrn/www/clone.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/clone.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/clone.tcl	5 Jun 2002 18:17:17 -0000	1.2
+++ openacs-4/packages/dotlrn/www/clone.tcl	13 Jul 2002 17:49:25 -0000	1.3
@@ -25,15 +25,20 @@
     title:onevalue
 }
 
-set class_instance_p 0
 set user_id [ad_get_user_id]
 set community_id [dotlrn_community::get_community_id]
+
+# this page must be restricted to admins of the community only
+dotlrn::require_user_admin_community \
+    -user_id $user_id \
+    -community_id $community_id
+
+set class_instance_p 0
 set community_name [dotlrn_community::get_community_name $community_id]
 set title "Copy $community_name]"
 set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
 set top_community_type [dotlrn_community::get_toplevel_community_type_from_community_id $community_id]
 
-
 if { $top_community_type != "dotlrn_club" 
      && $top_community_type != "dotlrn_community" } {