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.1 -r1.2
--- openacs-4/packages/cms/www/modules/types/widget-register.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/types/widget-register.tcl	24 May 2001 23:57:17 -0000	1.2
@@ -5,9 +5,8 @@
 request set_param content_type -datatype keyword
 request set_param widget -datatype keyword -optional
 
-set db [template::get_db_handle]
 
-template::query module_id onevalue "
+template::query get_module_id module_id onevalue "
   select
     module_id
   from
@@ -19,7 +18,6 @@
 # permissions check - need cm_write on types module to edit a widget
 content::check_access $module_id cm_write -user_id [User::getID] 
 
-template::release_db_handle
 
 wizard set_param attribute_id $attribute_id
 wizard set_param content_type $content_type