Index: openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl,v
diff -u -r1.9 -r1.9.2.1
--- openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl	13 Apr 2005 08:28:20 -0000	1.9
+++ openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl	31 May 2005 18:07:34 -0000	1.9.2.1
@@ -174,6 +174,7 @@
 } {
     set valid_attributes [list label description package_id]
 
+    set update_text "" 
     set item_attributes $attributes
     set i 0 
     foreach {attribute value} $attributes {
@@ -195,7 +196,7 @@
 
 	# we have valid attributes, update them
 
-	set query_text "update cr_folders set ${update_text}"
+	set query_text "update cr_folders set ${update_text} where folder_id=:folder_id"
 	db_dml item_update $query_text
     }
 
Index: openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl,v
diff -u -r1.10 -r1.10.2.1
--- openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	27 Apr 2005 11:27:22 -0000	1.10
+++ openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	31 May 2005 18:07:34 -0000	1.10.2.1
@@ -261,7 +261,7 @@
 
 	# we have valid attributes, update them
 
-	set query_text "update cr_items set ${update_text}"
+	set query_text "update cr_items set ${update_text} where item_id=:item_id"
 	db_dml item_update $query_text
     }
 }