Revision: 3831 Author: hans URL: http://bknr.net/trac/changeset/3831

Fix to import :shopping photos to :shop category for now.

U trunk/projects/quickhoney/upgrade-stuff/import.lisp

Modified: trunk/projects/quickhoney/upgrade-stuff/import.lisp =================================================================== --- trunk/projects/quickhoney/upgrade-stuff/import.lisp 2008-09-07 14:49:19 UTC (rev 3830) +++ trunk/projects/quickhoney/upgrade-stuff/import.lisp 2008-09-07 15:25:32 UTC (rev 3831) @@ -41,7 +41,7 @@ (mapc #'delete-object (get-keywords-intersection-store-images '(:upload :home :button))) (mapc #'delete-object (get-keywords-intersection-store-images '(:clients :nicejobs)))

-(defparameter *category-keywords* '(:pixel :vector :news :contact)) +(defparameter *category-keywords* '(:pixel :vector :news :contact :shop)) (defparameter *other-keywords* '(:published :upload :import :buy-file :buy-t-shirt :buy-print :explicit :hans :bw))

(with-transaction (:initialize-cat-sub)