Author: hhubner Date: Fri Feb 15 01:42:26 2008 New Revision: 2498
Modified: branches/bos/projects/bos/web/sponsor-handlers.lisp Log: merge 2462, 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 Fri Feb 15 01:42:26 2008 @@ -181,9 +181,7 @@ (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)))) - (if (eq field-name 'password) - (set-user-password sponsor field-value) - (change-slot-values sponsor field-name 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))