From baf564640e1af29fd6d1cc2e627ed81a430e2034 Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Mon, 1 Apr 2002 11:49:04 +0000
Subject: Fix for bug 23067: Allow the user to change their email address
through the preferences. Sends out tokens in email to both addresses which
have to be confirmed by the new address, and can be cancelled by the old one.
Entering your password on the preferences page is required to initiate the
process. Patch by John Vandenberg
diff --git a/template/default/prefs/userprefs.tmpl b/template/default/prefs/userprefs.tmpl
index 136dcda07..91bb4f027 100644
--- a/template/default/prefs/userprefs.tmpl
+++ b/template/default/prefs/userprefs.tmpl
@@ -29,8 +29,9 @@
# and its interface must be fulfilled.
# current_tab: A direct reference to one of the hashes in the tabs list.
# This tab will be displayed.
- # changes_saved: boolean. True if the CGI processed form data before
- # displaying anything.
+ # changes_saved: boolean/string. True if the CGI processed form data before
+ # displaying anything, and can contain an optional custom
+ # message if required (which Perl still evaluates as True).
#%]
[% INCLUDE global/header
@@ -75,6 +76,11 @@
[% current_tab.description FILTER lower %] have been saved.
-
+ Old password:
+
+ Please enter your existing password to confirm account changes.
+
+
+
+ Password:
-
+
+
+
+
+ [% IF Param('allowemailchange') %]
+ [% IF login_change_date %]
+ [% IF new_login_name %]
+ New password:
@@ -53,4 +63,36 @@
+
+ Pending email address:
+ [% new_login_name %]
+
+
+ [% ELSE %]
+ Change request expires:
+ [% login_change_date %]
+
+
+ Confirmed email address:
+ [% login FILTER html %]
+
+
+ [% END %]
+ [% ELSE %]
+ Completion date:
+ [% login_change_date %]
+
+
+ [% END %]
+ [% END %]
+
New email address:
+
+
+
+
+ [% changes_saved %] +
+ [% END %] [% END %]