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.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/install-procs.tcl	7 Feb 2005 23:27:08 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/install-procs.tcl	8 Feb 2005 01:19:43 -0000	1.8
@@ -383,13 +383,15 @@
         -url $url \
         -secret_question $secret_question \
         -secret_answer $secret_answer \
-        -email_verified_p 1]
+        -email_verified_p 1 \
+        -nologin \
+        ]
 
     if {[string equal $result(creation_status) "ok"] &&
         ![string equal $id ""]} {
         set ::install::xml::ids($id) $result(user_id)
     }
-  
+
     return [list $result(creation_message)]
 }
 
Index: openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	8 Feb 2004 18:37:24 -0000	1.18
+++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	8 Feb 2005 01:19:43 -0000	1.19
@@ -95,7 +95,7 @@
     
     @see ad_context_bar_html
 } {
-    if {![parameter::get -package_id [site_node_closest_ancestor_package "acs-subsite"] -parameter ShowContextBarP -default 1]} {
+    if {![parameter::get -package_id [ad_conn subsite_id] -parameter ShowContextBarP -default 1]} {
 	return ""
     }
     
@@ -141,7 +141,7 @@
     
     @see ad_context_bar_html
 } {
-    if {![parameter::get -package_id [site_node_closest_ancestor_package "acs-subsite"] -parameter ShowContextBarP -default 1]} {
+    if {![parameter::get -package_id [ad_conn subsite_id] -parameter ShowContextBarP -default 1]} {
 	return ""
     }
 
Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.67 -r1.68
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	30 Jan 2005 16:23:52 -0000	1.67
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	8 Feb 2005 01:19:43 -0000	1.68
@@ -1220,7 +1220,7 @@
                     subsite_id {
                         set ad_conn(subsite_id) [site_node::closest_ancestor_package \
                                                      -node_id [ad_conn node_id] \
-                                                     -package_key "acs-subsite" \
+                                                     -package_key [subsite::package_keys] \
                                                      -include_self \
                                                      -element "package_id"]
                         return $ad_conn(subsite_id)