Author: ksprotte Date: Fri Feb 15 07:39:33 2008 New Revision: 2502
Modified: branches/trunk-reorg/projects/bos/web/sponsor-handlers.lisp Log: fix in sponsor-handlers for changing password by explicitly using SET-USER-PASSWORD
Modified: branches/trunk-reorg/projects/bos/web/sponsor-handlers.lisp ============================================================================== --- branches/trunk-reorg/projects/bos/web/sponsor-handlers.lisp (original) +++ branches/trunk-reorg/projects/bos/web/sponsor-handlers.lisp Fri Feb 15 07:39:33 2008 @@ -181,7 +181,9 @@ (let ((field-value (query-param (string-downcase (symbol-name field-name))))) (when (and field-value (not (equal field-value (slot-value sponsor field-name)))) - (change-slot-values sponsor field-name field-value) + (case field-name + (password (set-user-password sponsor field-value)) + (t (change-slot-values sponsor field-name field-value))) (setf changed t) (html (:p "Changed " (:princ-safe (string-downcase (symbol-name field-name)))))))) (dolist (contract (sponsor-contracts sponsor))