[bknr-cvs] r2462 - branches/bos/projects/bos/web

[hhubner at common-lisp.net]

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))