[bknr-cvs] r2502 - branches/trunk-reorg/projects/bos/web

[ksprotte at common-lisp.net]

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