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.11 -r1.12
--- openacs-4/packages/acs-subsite/lib/login.tcl 19 Sep 2003 15:00:13 -0000 1.11
+++ openacs-4/packages/acs-subsite/lib/login.tcl 22 Sep 2003 08:22:26 -0000 1.12
@@ -187,6 +187,10 @@
}
}
+ if { [exists_and_not_null auth_info(account_url)] } {
+ ad_returnredirect $auth_info(account_url)
+ ad_script_abort
+ }
# Handle account status
switch $auth_info(account_status) {
Index: openacs-4/packages/acs-subsite/lib/user-info.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-info.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/lib/user-info.adp 17 Sep 2003 12:03:00 -0000 1.2
+++ openacs-4/packages/acs-subsite/lib/user-info.adp 22 Sep 2003 08:22:26 -0000 1.3
@@ -1,5 +1,4 @@
@focus;noquote@
-
Index: openacs-4/packages/acs-subsite/lib/user-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-info.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/lib/user-info.tcl 18 Sep 2003 17:12:53 -0000 1.6
+++ openacs-4/packages/acs-subsite/lib/user-info.tcl 22 Sep 2003 08:22:26 -0000 1.7
@@ -3,14 +3,15 @@
# user_id:optional
# return_url:optional
# edit_p:optional
+# message:optional
#
auth::require_login -account_status closed
if { ![exists_and_not_null user_id] } {
set user_id [ad_conn untrusted_user_id]
} else {
- permission::require_permission -object_id $user_id -privilege admin -party_id $user_id
+ permission::require_permission -object_id $user_id -privilege admin
}
if { ![exists_and_not_null return_url] } {
@@ -33,7 +34,7 @@
}
set first_element {}
foreach elm $form_elms {
- if { [empty_string_p $elm_mode($elm)] } {
+ if { [empty_string_p $elm_mode($elm)] && (![string equal $elm "username"] && [auth::UseEmailForLoginP]) } {
set first_element $elm
break
}
@@ -49,7 +50,8 @@
ad_form -name user_info -cancel_url $return_url -action $action_url -mode $form_mode -form {
{user_id:integer(hidden),optional}
- {return_url:text(hidden),optional {value $return_url}}
+ {return_url:text(hidden),optional}
+ {message:text(hidden),optional}
}
if { [llength [auth::authority::get_authority_options]] > 1 } {
Index: openacs-4/packages/acs-subsite/www/resources/site-master.css
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/resources/site-master.css,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/resources/site-master.css 21 Sep 2003 19:20:47 -0000 1.2
+++ openacs-4/packages/acs-subsite/www/resources/site-master.css 22 Sep 2003 08:22:26 -0000 1.3
@@ -84,7 +84,7 @@
#navbar {
padding-top: 4px;
- font-size: 80%;
+ font-size: 85%;
}
#navbar-body {
border-top: 1px solid #016799;
@@ -123,8 +123,8 @@
#subnavbar {
- padding-top: 0px;
- font-size: 80%;
+ padding-top: 6px;
+ font-size: 85%;
}
#subnavbar-body {
border-top: 1px solid #016799;
@@ -233,7 +233,7 @@
div.subsite-context-bar {
- font-size: 75%;
+ font-size: 85%;
margin-bottom: 4px;
}
@@ -271,3 +271,7 @@
line-height:15px;
}
+div.general-message {
+ background-color: #ccff99;
+ padding: 4px;
+}
Index: openacs-4/packages/acs-subsite/www/user/basic-info-update.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/basic-info-update.adp,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-subsite/www/user/basic-info-update.adp 18 Sep 2003 17:12:54 -0000 1.10
+++ openacs-4/packages/acs-subsite/www/user/basic-info-update.adp 22 Sep 2003 08:22:26 -0000 1.11
@@ -4,5 +4,9 @@
#acs-subsite.Basic_Information#
-
+
+ @message@
+
+
+
Index: openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl 18 Sep 2003 17:12:54 -0000 1.7
+++ openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl 22 Sep 2003 08:22:26 -0000 1.8
@@ -9,6 +9,7 @@
{return_url ""}
{user_id ""}
{edit_p 0}
+ {message ""}
}
set page_title "Update Basic Information"
Index: openacs-4/packages/acs-subsite/www/user/password-update.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/password-update.adp,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-subsite/www/user/password-update.adp 4 Sep 2003 16:35:04 -0000 1.15
+++ openacs-4/packages/acs-subsite/www/user/password-update.adp 22 Sep 2003 08:22:26 -0000 1.16
@@ -3,4 +3,8 @@
@context;noquote@
@focus;noquote@
+
+ @message@
+
+
Index: openacs-4/packages/acs-subsite/www/user/password-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/password-update.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-subsite/www/user/password-update.tcl 19 Sep 2003 13:57:47 -0000 1.17
+++ openacs-4/packages/acs-subsite/www/user/password-update.tcl 22 Sep 2003 08:22:26 -0000 1.18
@@ -7,6 +7,7 @@
{user_id {[ad_conn untrusted_user_id]}}
{return_url ""}
{old_password ""}
+ {message ""}
}
# This is a bit confusing, but old_password is what we get passed in here,
# whereas password_old is the form element.
@@ -58,6 +59,7 @@
{user_id:integer(hidden)}
{return_url:text(hidden),optional}
{old_password:text(hidden),optional}
+ {message:text(hidden),optional}
}
if { [exists_and_not_null old_password] } {