Index: openacs-4/packages/dynamic-types/www/dtypes-code.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/www/dtypes-code.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dynamic-types/www/dtypes-code.tcl	5 Jun 2005 08:19:03 -0000	1.2
+++ openacs-4/packages/dynamic-types/www/dtypes-code.tcl	5 Jun 2005 14:21:46 -0000	1.3
@@ -8,6 +8,9 @@
     {object_type:multiple}
 }
 
+set user_id [auth::require_login]
+permission::require_permission -object_id [ad_conn package_id] -privilege admin
+
 set page_title "[_ dynamic-types.code_export]"
 set context [list $page_title]