Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	22 Sep 2003 08:40:04 -0000	1.11
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	1 Oct 2003 14:01:32 -0000	1.12
@@ -613,3 +613,14 @@
     return $pageflow
 }
 
+ad_proc subsite::main_site_id {} {
+    Get the package_id of the Main Site. The Main Site is the subsite
+    that is always mounted at '/' and that has a number
+    of site-wide parameter settings.
+
+    @author Peter Marklund
+} {
+    array set main_node [site_node::get_from_url -url "/"]
+    
+    return $main_node(object_id)
+}