- added cleartext_password for authentication

tcl/security-procs.tcl

@@ -339,6 +339,10 @@ ad_proc -public ad_change_password {
         error "No user_id supplied"
     } 
     
+    if {[db_column_exists users cleartext_password]} {
+	db_dml cleartext_pwd "update users set cleartext_password = :new_password where user_id = :user_id"
+    }
+
     set salt [sec_random_token]
     set new_password [ns_sha1 "$new_password$salt"]
     db_dml password_update {}