Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.239.2.5 -r1.239.2.6
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	11 Oct 2013 10:14:01 -0000	1.239.2.5
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	11 Feb 2014 11:58:18 -0000	1.239.2.6
@@ -1344,7 +1344,7 @@
       -extend_slot validator party_id_check
   party_id instproc check=party_id_check {value} {
     if {$value eq ""} {return 1}
-    return [::xo::db_0or1row check_party {select 1 from parties where party_id = :value}]
+    return [::xo::dc 0or1row check_party {select 1 from parties where party_id = :value}]
   }
 
   ###########################################################
@@ -2452,10 +2452,11 @@
     # We should support as well user level instance attributes.
     set entry_label [string trimleft $entry_label _]
 
-    ::xo::db_1row [self proc] "select $entry_label from cr_items ci, cr_revisions cr
+    ::xo::dc 1row [self proc] "select $entry_label from cr_items ci, cr_revisions cr
       where cr.revision_id = ci.live_revision and ci.item_id = :item_id"
     return [set $entry_label]
   }
+
   abstract_page instproc get_entry_label {value} {
     set item_id [[my set package_id] lookup -parent_id [[my object] parent_id] -name $value]
     if {$item_id} {
@@ -2617,7 +2618,7 @@
 
     set package_id [[my object] package_id]
     set options [list]
-    db_foreach [my qn instance_select] \
+    ::xo::dc foreach instance_select \
         [$type instance_select_query \
              -folder_id [$package_id folder_id] \
              -with_subtypes $with_subtypes \
@@ -3584,3 +3585,10 @@
 }
 
 ::xo::library source_dependent 
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: