Index: openacs-4/packages/cms/www/modules/types/widget-register.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/types/widget-register.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/cms/www/modules/types/widget-register.tcl	13 Apr 2005 20:15:19 -0000	1.6
+++ openacs-4/packages/cms/www/modules/types/widget-register.tcl	9 May 2005 23:27:04 -0000	1.7
@@ -5,9 +5,8 @@
 request set_param content_type -datatype keyword
 request set_param widget -datatype keyword -optional
 
-set module_id [db_string get_module_id ""]
 permission::require_permission -party_id [auth::require_login] \
-    -object_id $module_id -privilege write
+    -object_id [cm::modules::get_module_id -module_name types -package_id [ad_conn package_id]] -privilege write
 
 wizard set_param attribute_id $attribute_id
 wizard set_param content_type $content_type