Author: hhubner Date: Mon Feb 11 07:12:57 2008 New Revision: 2462
Modified: branches/bos/projects/bos/web/sponsor-handlers.lisp Log: Fix password setting through CMS.
Modified: branches/bos/projects/bos/web/sponsor-handlers.lisp ============================================================================== --- branches/bos/projects/bos/web/sponsor-handlers.lisp (original) +++ branches/bos/projects/bos/web/sponsor-handlers.lisp Mon Feb 11 07:12:57 2008 @@ -181,7 +181,9 @@ (let ((field-value (query-param req (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) + (if (eq field-name 'password) + (set-user-password sponsor field-value) + (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))