Index: openacs-4/packages/acs-tcl/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/install-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/install-procs.tcl	27 Jan 2005 16:20:59 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/install-procs.tcl	31 Jan 2005 14:56:59 -0000	1.4
@@ -309,6 +309,15 @@
     }
 }
 
+ad_proc -public install::xml::object_id::object { node } {
+    Returns a literal object_id for an object.
+    
+    use <object id="-100"> to return the literal id -100.
+} {
+    set id [apm_required_attribute_value $node id]
+    return $id
+}
+
 ad_proc -public install::xml::util::get_id { id } {
     Returns an id from the global ids variable if it exists and attempts to
     find an acs_magic_object if not.
@@ -321,3 +330,4 @@
         return [acs_magic_object $id]
     }
 }
+