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}