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.2 -r1.3
--- openacs-4/packages/cms/www/modules/types/widget-unregister.tcl	24 May 2001 23:57:17 -0000	1.2
+++ openacs-4/packages/cms/www/modules/types/widget-unregister.tcl	20 Aug 2002 11:17:30 -0000	1.3
@@ -4,30 +4,12 @@
 
 # permissions check - must have cm_write on the types module to unregister
 #  a widget
-template::query get_module_id module_id onevalue "
-  select
-    module_id
-  from
-    cm_modules
-  where
-    key = 'types'
-"
+set module_id [db_string get_module_id ""]
 
 content::check_access $module_id cm_write -user_id [User::getID]
 
+db_1row get_attr_info ""
 
-template::query get_attr_info attribute_info onerow "
-  select
-    attribute_name, object_type as content_type
-  from
-    acs_attributes
-  where
-    attribute_id = :attribute_id
-" 
-
-template::util::array_to_vars attribute_info
-
-
 if { [catch {db_exec_plsql unregister "
   begin
   cm_form_widget.unregister_attribute_widget (