Index: openacs-4/packages/cms/www/modules/types/widget-register-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/types/widget-register-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/www/modules/types/widget-register-2.tcl	27 May 2001 04:39:19 -0000	1.3
+++ openacs-4/packages/cms/www/modules/types/widget-register-2.tcl	20 Aug 2002 04:18:00 -0000	1.4
@@ -15,22 +15,7 @@
 }
 
 
-
-template::query get_attr_info attribute_info onerow "
-  select
-    a.pretty_name as attribute_name_pretty, 
-    a.attribute_name,
-    t.pretty_name as content_type_pretty,
-    a.object_type as content_type
-  from
-    acs_attributes a, acs_object_types t
-  where
-    a.object_type = t.object_type
-  and
-    a.attribute_id = :attribute_id
-"
-
-template::util::array_to_vars attribute_info
+db_1row get_attr_info ""
 element set_properties widget_register content_type_pretty \
 	-value $content_type_pretty
 element set_properties widget_register attribute_name_pretty \
@@ -44,28 +29,7 @@
 
 
 # get a list of params for this widget
-template::query get_params widget_params multilist "
-  select
-    f.param_id, param, 
-    decode(f.is_required,'t','t',w.is_required) is_required, is_html, 
-    nvl(w.value,f.default_value) default_value,
-    nvl(w.param_source,'literal') param_source
-  from
-    cm_form_widget_params f, 
-    ( select 
-        is_required, param_id, param_source, value
-      from 
-        cm_attribute_widget_params awp, cm_attribute_widgets aw
-      where 
-        awp.attribute_id = :attribute_id
-      and
-        awp.attribute_id = aw.attribute_id
-    ) w
-  where
-    widget = :widget
-  and
-    f.param_id = w.param_id (+)
-"
+set widget_params [db_list_of_lists get_params ""]
 
 
 # create form sections and elements for each widget param