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 -N -r1.3 -r1.4
--- openacs-4/packages/cms/www/modules/types/widget-unregister.tcl	20 Aug 2002 11:17:30 -0000	1.3
+++ openacs-4/packages/cms/www/modules/types/widget-unregister.tcl	13 Apr 2005 20:15:19 -0000	1.4
@@ -1,23 +1,13 @@
 request create
 request set_param attribute_id -datatype integer
 
-
-# permissions check - must have cm_write on the types module to unregister
-#  a widget
 set module_id [db_string get_module_id ""]
+permission::require_permission -party_id [auth::require_login] \
+    -object_id $module_id -privilege write
 
-content::check_access $module_id cm_write -user_id [User::getID]
-
 db_1row get_attr_info ""
 
-if { [catch {db_exec_plsql unregister "
-  begin
-  cm_form_widget.unregister_attribute_widget (
-      content_type   => :content_type,
-      attribute_name => :attribute_name
-  );
-  end;
-"} errmsg] } {
+if { [catch { db_exec_plsql unregister {} } errmsg] } {
   template::request::error unregister_attribute_widget $errmsg
 }