Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -N -r1.58 -r1.59
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	9 May 2007 21:04:11 -0000	1.58
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	11 May 2007 11:58:55 -0000	1.59
@@ -566,7 +566,10 @@
     {-sql ""}
     {-full_statement_name ""}
   } {
-    Return a set of instances of folder objects. 
+    Return a set of instances of objects. It creates plain objects
+    of type ::xotcl::Object just containing the variables that
+    the sql query returns.
+
     The container and contained objects are automatically 
     destroyed on cleanup of the connection thread
   } {
@@ -578,7 +581,7 @@
       while {1} {
         set continue [ns_db getrow $db $selection]
         if {!$continue} break
-        set o [Object new]
+        set o [::xotcl::Object new]
         foreach {att val} [ns_set array $selection] {$o set $att $val}
 
         if {[$o exists object_type]} {
@@ -682,6 +685,15 @@
                 where revision_id = $revision_id"
     }
   }
+  CrItem instproc update_content {revision_id content} {
+    [my info class] instvar storage_type 
+    if {$storage_type eq "file"} {
+      my log "--update_content not implemented for type file"
+    } else {
+      db_dml [my qn update_content] "update cr_revisions \
+                set content = :content where revision_id = $revision_id"
+    }
+  }
 
   CrItem instproc current_user_id {} {
     if {[my isobject ::xo::cc]} {return [::xo::cc user_id]}