Index: openacs-4/packages/acs-subsite/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/index.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/index.tcl	28 Aug 2003 09:41:40 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/index.tcl	30 Aug 2003 15:15:00 -0000	1.8
@@ -11,6 +11,7 @@
 } -properties {
     context:onevalue
     subsite_name:onevalue
+    subsite_url:onevalue
     nodes:multirow
     admin_p:onevalue
     user_id:onevalue
@@ -34,6 +35,8 @@
     select acs_object.name(:package_id) from dual
 }]
 
+set subsite_url [subsite::get_element -element url]
+
 set node_id [ad_conn node_id]
 
 db_multirow nodes site_nodes {}