Revision: 3527 Author: hans URL: http://bknr.net/trac/changeset/3527 Remove cruft U trunk/projects/quickhoney/src/handlers.lisp Modified: trunk/projects/quickhoney/src/handlers.lisp =================================================================== --- trunk/projects/quickhoney/src/handlers.lisp 2008-07-20 06:57:11 UTC (rev 3526) +++ trunk/projects/quickhoney/src/handlers.lisp 2008-07-20 07:35:09 UTC (rev 3527) @@ -119,10 +119,8 @@ (with-transaction (:edit-image) (setf (quickhoney-image-client image) client (quickhoney-image-spider-keywords image) spider-keywords - (store-image-keywords image) - (append (set-difference (store-image-keywords image) *editable-keywords*) - (image-keywords-from-request-parameters))) - (set-image-keywords-from-request-parameters image)) + (store-image-keywords image) (append (set-difference (store-image-keywords image) *editable-keywords*) + (image-keywords-from-request-parameters)))) (format *js-stream* "parent.image_edited()~%"))) (defmethod handle-object-form ((handler edit-image-js-handler) (action (eql :delete)) (image quickhoney-image))