Index: openacs-4/packages/acs-tcl/acs-tcl.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/acs-tcl.info,v
diff -u -r1.48 -r1.49
--- openacs-4/packages/acs-tcl/acs-tcl.info	15 Jan 2007 06:57:49 -0000	1.48
+++ openacs-4/packages/acs-tcl/acs-tcl.info	29 Jan 2007 12:25:37 -0000	1.49
@@ -7,7 +7,7 @@
     <initial-install-p>t</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="5.4.0d1" url="http://openacs.org/repository/download/apm/acs-tcl-5.4.0d1.apm">
+    <version name="5.4.0d2" url="http://openacs.org/repository/download/apm/acs-tcl-5.4.0d2.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>The Kernel Tcl API library.</summary>
         <release-date>2006-11-19</release-date>
@@ -16,7 +16,7 @@
         <vendor url="http://openacs.org">OpenACS</vendor>
         <description format="text/html">Contains all the core Tcl API, including the request processor, security and session management, permissions, site-nodes, package management infrastructure, etc.</description>
 
-        <provides url="acs-tcl" version="5.4.0d1"/>
+        <provides url="acs-tcl" version="5.4.0d2"/>
         <requires url="acs-bootstrap-installer" version="5.3.0b1"/>
         <requires url="acs-kernel" version="5.3.0b1"/>
 
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.10 -r1.11
--- openacs-4/packages/acs-tcl/tcl/object-procs.tcl	1 Nov 2006 19:23:48 -0000	1.10
+++ openacs-4/packages/acs-tcl/tcl/object-procs.tcl	29 Jan 2007 12:25:38 -0000	1.11
@@ -126,19 +126,21 @@
     return $row($element)
 }
 
-ad_proc -public acs_object::package_id {
-    {-object_id:required}
+ad_proc -public acs_object::object_p {
+    -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
+    @author Jim Lynch (jim@jam.sessionsnet.org)
+    @author Malte Sussdorff
+
+    @creation-date 2007-01-26
+
+    @param id ID of the potential acs-object
+
+    @return true if object whose id is $id exists
+
 } {
-    return [db_string get_package_id {} -default ""]
+    return [db_string object_exists {} -default 0]
 }
 
 ad_proc -public acs_object::set_context_id {
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.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/object-procs.xql	1 Nov 2006 19:25:19 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/object-procs.xql	29 Jan 2007 12:25:38 -0000	1.6
@@ -35,11 +35,11 @@
       </querytext>
 </fullquery>
 
-<fullquery name="acs_object::package_id.get_package_id">
+<fullquery name="acs_object::object_p.object_exists">
   <querytext>
-    select package_id
+    select 1
       from acs_objects
-      where object_id = :object_id
+      where object_id = :id
    </querytext>
 </fullquery>