Index: openacs-4/packages/cms/tcl/content-method-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/content-method-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/cms/tcl/content-method-procs.tcl	16 Sep 2002 10:56:14 -0000	1.8
+++ openacs-4/packages/cms/tcl/content-method-procs.tcl	17 Sep 2002 21:43:09 -0000	1.9
@@ -75,7 +75,7 @@
     
     set text_entry_filter [text_entry_filter_sql $content_type]
 
-    db_1row get_content_default_method ""
+    db_0or1row get_content_default_method ""
 
     if { ![template::util::is_nil content_method] } {
 	set methods [list [list $label $content_method]]
Index: openacs-4/packages/cms/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/form-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/cms/tcl/form-procs.tcl	16 Sep 2002 10:56:14 -0000	1.19
+++ openacs-4/packages/cms/tcl/form-procs.tcl	17 Sep 2002 21:43:09 -0000	1.20
@@ -709,7 +709,7 @@
   ns_set put $bind_vars revision_id $revision_id
 
   # query for content_type and table_name
-  set info [db_1row addrev_get_content_type ""]
+  db_1row addrev_get_content_type "" -column_array info
 
   set insert_statement [attribute_insert_statement \
 	  $info(content_type) $info(table_name) $bind_vars $form_name]
@@ -1617,7 +1617,7 @@
       
   # Query for values from a previous revision
 
-  db_1row get_previous_version_values "" -column_array values
+  db_0or1row get_previous_version_values "" -column_array values
 
   # Set the form values, handling dates with the date acquire function
   foreach pair $attr_types {
@@ -1702,7 +1702,7 @@
       return $info
 
   } else {
-      uplevel 1 "db_1row get_type_info_2 {} -column_array $ref"
+      uplevel 1 "db_0or1row get_type_info_2 {} -column_array $ref"
   }
 }
 
Index: openacs-4/packages/cms/www/modules/items/attributes-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/attributes-edit.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/www/modules/items/attributes-edit.tcl	16 Aug 2002 00:32:08 -0000	1.3
+++ openacs-4/packages/cms/www/modules/items/attributes-edit.tcl	17 Sep 2002 21:43:30 -0000	1.4
@@ -6,7 +6,7 @@
 # check permissions - user must have cm_write on the item
 content::check_access $item_id cm_write -user_id [User::getID]
 
-db_1row get_item_info ""
+db_0or1row get_item_info ""
 
 # flush the sitemap folder listing cache in anticipation 
 # of the new item
Index: openacs-4/packages/cms/www/modules/items/publish-status.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/publish-status.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/cms/www/modules/items/publish-status.tcl	19 Aug 2002 03:05:17 -0000	1.4
+++ openacs-4/packages/cms/www/modules/items/publish-status.tcl	17 Sep 2002 21:43:30 -0000	1.5
@@ -48,7 +48,7 @@
 
 # determine whether the item is publishable or not
 
-db_1row get_publish_info ""
+db_1row get_publish_info "" -column_array publish_info
 
 template::util::array_to_vars publish_info
 
Index: openacs-4/packages/cms/www/modules/sitemap/ancestors.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/sitemap/ancestors.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/cms/www/modules/sitemap/ancestors.tcl	22 Aug 2002 03:04:32 -0000	1.8
+++ openacs-4/packages/cms/www/modules/sitemap/ancestors.tcl	17 Sep 2002 21:43:31 -0000	1.9
@@ -41,7 +41,7 @@
 
 # get the path of the item
 
-db_1row get_preview_info ""
+db_1row get_preview_info "" -column_array preview_info
 
 template::util::array_to_vars preview_info
 # physical_path, virtual_path, is_folder, has_index_page
Index: openacs-4/packages/cms/www/modules/workflow/task-finish.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/workflow/task-finish.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/cms/www/modules/workflow/task-finish.tcl	22 Aug 2002 03:04:32 -0000	1.6
+++ openacs-4/packages/cms/www/modules/workflow/task-finish.tcl	17 Sep 2002 21:43:32 -0000	1.7
@@ -20,7 +20,7 @@
 
 # Get the name of the item and of the task
 
-db_1row get_task_info ""
+db_1row get_task_info "" -column_array task_info
 
 
 form create task_finish -elements {
Index: openacs-4/packages/cms/www/modules/workflow/task-start.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/workflow/task-start.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/cms/www/modules/workflow/task-start.tcl	22 Aug 2002 03:04:32 -0000	1.4
+++ openacs-4/packages/cms/www/modules/workflow/task-start.tcl	17 Sep 2002 21:43:32 -0000	1.5
@@ -17,7 +17,7 @@
 
 
 # task info
-set task_info [db_1row get_task_info ""]
+db_1row get_task_info "" -column_array task_info
 
 set holding_user $task_info(holding_user)