Index: openacs-4/packages/dynamic-types/www/form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/www/form.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/dynamic-types/www/form.tcl	5 Jun 2005 12:36:46 -0000	1.3
+++ openacs-4/packages/dynamic-types/www/form.tcl	5 Jun 2005 14:21:46 -0000	1.4
@@ -9,6 +9,9 @@
     {form_id:optional 0}
 }
 
+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_form_name {}