Index: openacs-4/packages/acs-tcl/tcl/security-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs-oracle.xql,v
diff -u -N -r1.5 -r1.5.4.1
--- openacs-4/packages/acs-tcl/tcl/security-procs-oracle.xql	1 Mar 2002 23:16:13 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/security-procs-oracle.xql	6 Jun 2003 08:48:50 -0000	1.5.4.1
@@ -79,4 +79,14 @@
       </querytext>
 </fullquery>
  
+<fullquery name="ad_change_password.password_update">      
+      <querytext>
+        update users 
+        set    password = :new_password, 
+               salt = :salt,
+               password_changed_date = sysdate
+        where  user_id = :user_id
+      </querytext>
+</fullquery>
+
 </queryset>
Index: openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql,v
diff -u -N -r1.9 -r1.9.4.1
--- openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql	1 Mar 2002 23:16:13 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql	6 Jun 2003 08:48:50 -0000	1.9.4.1
@@ -64,4 +64,15 @@
       </querytext>
 </fullquery>
 
+<fullquery name="ad_change_password.password_update">      
+      <querytext>
+        update users 
+        set    password = :new_password, 
+               salt = :salt,
+               password_changed_date = current_timestamp
+        where  user_id = :user_id
+      </querytext>
+</fullquery>
+
+ 
 </queryset>
Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -N -r1.13.2.4 -r1.13.2.5
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	30 Apr 2003 14:21:15 -0000	1.13.2.4
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	6 Jun 2003 08:48:50 -0000	1.13.2.5
@@ -224,8 +224,7 @@
     # this and still support old users by changing the salt below.
     set salt [sec_random_token]
     set new_password [ns_sha1 "$new_password$salt"]
-    db_dml password_update "update users set password = :new_password, salt = :salt where user_id = :user_id"
-    
+    db_dml password_update {}
 }
 
 ad_proc -private sec_setup_session { new_user_id } {
Index: openacs-4/packages/acs-tcl/tcl/security-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.xql,v
diff -u -N -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/acs-tcl/tcl/security-procs.xql	16 Feb 2003 20:36:37 -0000	1.6.2.1
+++ openacs-4/packages/acs-tcl/tcl/security-procs.xql	6 Jun 2003 08:48:50 -0000	1.6.2.2
@@ -18,13 +18,6 @@
 </fullquery>
 
  
-<fullquery name="ad_change_password.password_update">      
-      <querytext>
-      update users set password = :new_password, salt = :salt where user_id = :user_id
-      </querytext>
-</fullquery>
-
- 
 <fullquery name="sec_lookup_property.property_lookup_sec">      
       <querytext>