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.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/object-procs.tcl	27 Sep 2005 09:44:51 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/object-procs.tcl	11 Aug 2006 10:10:14 -0000	1.9
@@ -96,6 +96,21 @@
     return $row($element)
 }
 
+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 [db_string get_package_id {} -default ""]
+}
+
 ad_proc -public acs_object::set_context_id {
     {-object_id:required}
     {-context_id:required}