[bknr-cvs] hans changed trunk/projects/quickhoney/src/handlers.lisp

[BKNR Commits]

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