Index: openacs-4/packages/acs-tcl/tcl/object-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/object-procs.tcl	11 Aug 2006 10:10:14 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/object-procs.tcl	1 Nov 2006 19:23:48 -0000	1.10
@@ -78,7 +78,37 @@
     db_1row select_object {} -column_array row
 }
 
+ad_proc -public acs_object::package_id {
+    {-object_id:required}
+} {
+    Gets the package_id of the object
 
+    @author Malte Sussdorff (malte.sussdorff@cognovis.de)
+    @creation-date 2006-08-10
+    
+    @param object_id the object to get the package_id for
+    
+    @return package_id of the object. Empty string if the package_id is not stored
+} {
+    return [util_memoize [list acs_object::package_id_not_cached -object_id $object_id]]
+}
+
+ad_proc -public acs_object::package_id_not_cached {
+    {-object_id:required}
+} {
+    Gets the package_id of the object
+
+    @author Malte Sussdorff (malte.sussdorff@cognovis.de)
+    @creation-date 2006-08-10
+    
+    @param object_id the object to get the package_id for
+    
+    @return package_id of the object. Empty string if the package_id is not stored
+} {
+    return [db_string get_package_id {} -default ""]
+}
+
+
 ad_proc -public acs_object::get_element { 
     {-object_id:required}
     {-element:required}
Index: openacs-4/packages/acs-tcl/tcl/object-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/object-procs.xql	11 Aug 2006 10:10:14 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/object-procs.xql	1 Nov 2006 19:25:19 -0000	1.5
@@ -7,6 +7,14 @@
       </querytext>
 </fullquery>
 
+<fullquery name="acs_object::package_id_not_cached.get_package_id">
+  <querytext>
+    select package_id
+      from acs_objects
+      where object_id = :object_id
+   </querytext>
+</fullquery>
+
 <fullquery name="acs_object_type.object_type_select">
       <querytext>