Index: openacs-4/packages/acs-subsite/lib/login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/login.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/acs-subsite/lib/login.tcl 31 Oct 2008 00:13:52 -0000 1.33
+++ openacs-4/packages/acs-subsite/lib/login.tcl 10 Feb 2011 15:17:01 -0000 1.34
@@ -268,7 +268,12 @@
} else {
# Display the message on a separate page
- ad_returnredirect [export_vars -base "[subsite::get_element -element url]register/account-closed" { { message $auth_info(account_message) } }]
+ ad_returnredirect \
+ -message $auth_info(account_message) \
+ -html \
+ [export_vars \
+ -base "[subsite::get_element \
+ -element url]register/account-closed"]
ad_script_abort
}
}
Index: openacs-4/packages/acs-subsite/lib/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-new.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-subsite/lib/user-new.tcl 10 Jan 2007 21:22:05 -0000 1.17
+++ openacs-4/packages/acs-subsite/lib/user-new.tcl 10 Feb 2011 15:17:01 -0000 1.18
@@ -137,7 +137,12 @@
}
default {
# Display the message on a separate page
- ad_returnredirect [export_vars -base "[subsite::get_element -element url]register/account-closed" { { message $creation_info(account_message) } }]
+ ad_returnredirect \
+ -message $creation_info(account_message) \
+ -html \
+ [export_vars \
+ -base "[subsite::get_element \
+ -element url]register/account-closed"]
ad_script_abort
}
}
Index: openacs-4/packages/acs-subsite/www/register/account-closed.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/account-closed.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/register/account-closed.adp 10 Sep 2003 16:45:49 -0000 1.1
+++ openacs-4/packages/acs-subsite/www/register/account-closed.adp 10 Feb 2011 15:17:01 -0000 1.2
@@ -2,5 +2,5 @@
@message;noquote@
+ Index: openacs-4/packages/acs-subsite/www/register/account-closed.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/account-closed.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/acs-subsite/www/register/account-closed.tcl 28 Apr 2005 09:53:08 -0000 1.8 +++ openacs-4/packages/acs-subsite/www/register/account-closed.tcl 10 Feb 2011 15:17:01 -0000 1.9 @@ -3,7 +3,7 @@ @cvs-id $Id$ } { - {message:html ""} + } set page_title [_ acs-subsite.Account_closed_title]