Changeset 2502

Show
Ignore:
Timestamp:
02/15/08 13:39:33 (1 year ago)
Author:
ksprotte
Message:

fix in sponsor-handlers for changing password by explicitly using SET-USER-PASSWORD

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/trunk-reorg/projects/bos/web/sponsor-handlers.lisp

    r2484 r2502  
    182182          (when (and field-value 
    183183                     (not (equal field-value (slot-value sponsor field-name)))) 
    184             (change-slot-values sponsor field-name field-value) 
     184            (case field-name 
     185              (password (set-user-password sponsor field-value)) 
     186              (t (change-slot-values sponsor field-name field-value))) 
    185187            (setf changed t) 
    186188            (html (:p "Changed " (:princ-safe (string-downcase (symbol-name field-name))))))))