Index: openacs-4/packages/acs-object-management/tcl/widget-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/tcl/widget-procs.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-object-management/tcl/widget-procs.xql	27 Nov 2009 00:38:50 -0000	1.1
+++ openacs-4/packages/acs-object-management/tcl/widget-procs.xql	22 Dec 2009 19:59:15 -0000	1.2
@@ -67,6 +67,14 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="object_view::attribute::widget::param::delete_all.delete_all">
+    <querytext>
+      delete from acs_view_attribute_widget_params
+      where object_view = :object_view
+        and attribute_id = :attribute_id
+    </querytext>
+  </fullquery>
+
   <fullquery name="object_view::attribute::widget::param::set.param_exists">
     <querytext>
       select 1
@@ -80,7 +88,9 @@
   <fullquery name="object_view::attribute::widget::param::set.update_value">
     <querytext>
       update acs_view_attribute_widget_params
-      set value = :value
+      set param_type = :param_type,
+          param_source = :param_source,
+          value = :value
       where object_view = :object_view
         and attribute_id = :attribute_id
         and param_id = :param_id
@@ -90,9 +100,9 @@
   <fullquery name="object_view::attribute::widget::param::set.insert_param">
     <querytext>
       insert into acs_view_attribute_widget_params
-        (object_view, attribute_id, param_id, value)
+        (object_view, attribute_id, param_id, param_type, param_source, value)
       values
-        (:object_view, :attribute_id, :param_id, :value)
+        (:object_view, :attribute_id, :param_id, :param_type, :param_source, :value)
     </querytext>
   </fullquery>