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

[ksprotte at common-lisp.net]

Author: ksprotte
Date: Fri Feb 15 07:36:38 2008
New Revision: 2501

Modified:
   branches/bos/projects/bos/web/sponsor-handlers.lisp
Log:
fix in sponsor-handlers for changing password by explicitly using SET-USER-PASSWORD


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 07:36:38 2008
@@ -179,7 +179,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)
+	    (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))