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
"
}