Index: openacs-4/packages/dynamic-types/www/element-param.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/www/element-param.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dynamic-types/www/element-param.tcl	5 Jun 2005 12:36:46 -0000	1.1
+++ openacs-4/packages/dynamic-types/www/element-param.tcl	5 Jun 2005 14:21:46 -0000	1.2
@@ -11,6 +11,9 @@
     {param_id:notnull}
 }
 
+set user_id [auth::require_login]
+permission::require_permission -object_id [ad_conn package_id] -privilege admin
+
 acs_object_type::get -object_type $object_type -array type_info
 db_1row get_data {}