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 -N -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}
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 -N -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/object-procs.xql	27 Sep 2005 09:44:51 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/object-procs.xql	11 Aug 2006 10:10:14 -0000	1.4
@@ -27,4 +27,12 @@
       </querytext>
 </fullquery>
 
+<fullquery name="acs_object::package_id.get_package_id">
+  <querytext>
+    select package_id
+      from acs_objects
+      where object_id = :object_id
+   </querytext>
+</fullquery>
+
 </queryset>
Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -N -r1.35 -r1.36
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	10 Aug 2006 18:19:03 -0000	1.35
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	11 Aug 2006 10:10:14 -0000	1.36
@@ -1079,3 +1079,14 @@
 	    }
 	}
 }
+
+aa_register_case -cats {api smoke} acs_object__package_id {
+    Tests the acs_object__package_id procedure
+
+    @author Malte Sussdorff
+} {
+    # Retrieve an objects_package_id
+    set object_id [db_string get_object_id "select max(object_id) from acs_objects where package_id >0"]
+    set package_id [db_string get_package_id "select package_id from acs_objects where object_id = :object_id"]
+    aa_true "package_id returned is correct" [string eq $package_id [acs_object::package_id -object_id $object_id]]
+}