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

hhubner at common-lisp.net hhubner at common-lisp.net
Fri Feb 15 06:42:31 UTC 2008


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



More information about the Bknr-cvs mailing list