Index: openacs-4/packages/cms/www/modules/types/widget-unregister.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/types/widget-unregister.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/cms/www/modules/types/widget-unregister.tcl	13 Apr 2005 20:15:19 -0000	1.4
+++ openacs-4/packages/cms/www/modules/types/widget-unregister.tcl	9 May 2005 23:27:04 -0000	1.5
@@ -1,9 +1,8 @@
 request create
 request set_param attribute_id -datatype integer
 
-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
 
 db_1row get_attr_info ""