Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.72 -r1.73
--- openacs-4/packages/xotcl-core/xotcl-core.info	6 Nov 2009 12:18:56 -0000	1.72
+++ openacs-4/packages/xotcl-core/xotcl-core.info	26 Nov 2009 10:57:26 -0000	1.73
@@ -10,10 +10,10 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.109" url="http://media.wu-wien.ac.at/download/xotcl-core-0.109.apm">
+    <version name="0.110" url="http://media.wu-wien.ac.at/download/xotcl-core-0.110.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
-        <release-date>2009-11-06</release-date>
+        <release-date>2009-11-26</release-date>
         <vendor>Gustaf Neumann, WU Wien</vendor>
         <description format="text/html">This component contains some core functionality for OpenACS
 applications using XOTcl. It includes
@@ -43,7 +43,7 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.109"/>
+        <provides url="xotcl-core" version="0.110"/>
 
         <callbacks>
             <callback type="after-upgrade"  proc="::xotcl-core::after_upgrade_callback"/>
Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	6 Nov 2009 13:09:29 -0000	1.35
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	26 Nov 2009 10:57:26 -0000	1.36
@@ -86,14 +86,62 @@
     CrItem. The XOTcl object is destroyed automatically on cleanup 
     (end of a connection request).
 
-    @return fully qualified object
-    @return object containing the attributes of the CrItem
+    @return fully qualified object containing the attributes of the CrItem
   } { 
     set object_type [my get_object_type -item_id $item_id -revision_id $revision_id]
     set class [::xo::db::Class object_type_to_class $object_type]
     return [$class get_instance_from_db -item_id $item_id -revision_id $revision_id]
   }
 
+  CrClass ad_proc get_parent_id {
+    -item_id:required
+  } {
+    Get the parent_id of a content item either from an already instantiated
+    object or from the database without instantiating it. If item_id is not 
+    a valid item_id, we throw an error.
+
+    @return parent_id
+  } { 
+    if {[my isobject ::$item_id]} {
+      return [::$item_id parent_id]
+    }
+    db_1row "get_parent" "select parent_id from cr_items where item_id = :item_id"
+    return $parent_id
+  }
+
+  CrClass ad_proc get_name {
+    -item_id:required
+  } {
+    Get the name of a content item either from an already instantiated object 
+    or from the database without instantiating it. If item_id is not a valid 
+    item_id, we throw an error.
+
+    @return parent_id
+  } { 
+    if {[my isobject ::$item_id]} {
+      return [::$item_id parent_id]
+    }
+    db_1row "get_name" "select name from cr_items where item_id = :item_id"
+    return $name
+  }
+
+  CrClass ad_proc get_child_item_ids {
+    -item_id:required
+  } {
+    Return a list of content items having the provided item_id as 
+    direct or indirect parent. The method returns recursively all 
+    item_ids.
+
+    @return list of item_ids
+  } {
+    set items [list]
+    foreach item_id [db_list "get_child_items" \
+                         "select item_id from cr_items where parent_id = :item_id"] {
+      eval lappend items $item_id [my [self proc] -item_id $item_id]
+    }
+    return $items
+  }
+
   CrClass ad_proc lookup {
     -name:required
     {-parent_id -100}