Index: openacs-4/packages/cms/www/modules/types/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/types/index.tcl,v
diff -u -r1.10 -r1.10.2.1
--- openacs-4/packages/cms/www/modules/types/index.tcl	16 May 2005 22:59:25 -0000	1.10
+++ openacs-4/packages/cms/www/modules/types/index.tcl	6 Jun 2005 17:07:24 -0000	1.10.2.1
@@ -17,10 +17,10 @@
 request set_param mount_point -datatype keyword -value types
 request set_param type_props_tab -datatype keyword -optional -value attributes
 
-set root_id [cm::modules::templates::getRootFolderID [ad_conn package_id]]
+set root_id [cm::modules::templates::getRootFolderID [ad_conn subsite_id]]
 
 set user_id [auth::require_login]
-set module_id [cm::modules::get_module_id -module_name types -package_id [ad_conn package_id]]
+set module_id [cm::modules::get_module_id -module_name types -subsite_id [ad_conn subsite_id]]
 permission::require_permission -party_id $user_id \
     -object_id $module_id -privilege read