Index: openacs-4/packages/acs-bootstrap-installer/installer.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-bootstrap-installer/installer.tcl 14 Oct 2003 13:59:06 -0000 1.11
+++ openacs-4/packages/acs-bootstrap-installer/installer.tcl 15 Oct 2003 09:47:44 -0000 1.12
@@ -13,16 +13,25 @@
# This procedure engages the installer mutex, as every installer page is a critical section.
proc install_header { status title } {
+
+ # Prefix the page title
+ set page_title_prefix "OpenACS Installation"
+ if { ![empty_string_p $title] } {
+ set page_title "${page_title_prefix}: $title"
+ } else {
+ set page_title $page_title_prefix
+ }
+
return "HTTP/1.0 $status OK
MIME-Version: 1.0
Content-Type: text/html
- OpenACS Installation: $title
+ $page_title
- OpenACS Installation: $title
+ $page_title
"
}
Index: openacs-4/packages/acs-bootstrap-installer/installer/install.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer/install.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-bootstrap-installer/installer/install.tcl 10 Oct 2003 15:04:56 -0000 1.2
+++ openacs-4/packages/acs-bootstrap-installer/installer/install.tcl 15 Oct 2003 09:47:44 -0000 1.3
@@ -15,13 +15,20 @@
system_url:notnull
system_name:notnull
publisher_name:notnull
- system_owner:notnull
- admin_owner:notnull
- host_administrator:notnull
- outgoing_sender:notnull
- new_registrations:notnull
+ {system_owner ""}
+ {admin_owner ""}
+ {host_administrator ""}
+ {outgoing_sender ""}
+ {new_registrations ""}
}
+# Default all system emails to the administrators email
+foreach var_name {system_owner admin_owner host_administrator outgoing_sender new_registrations} {
+ if { [empty_string_p [set $var_name]] } {
+ set $var_name $email
+ }
+}
+
##############
#
# System setting validation