new files are unpublished by default

This commit is contained in:
Gered 2013-05-26 20:02:18 -04:00
parent 8bd20aa40b
commit 7ea2f9ab01

View file

@ -56,7 +56,7 @@
:filename filename :filename filename
:path p :path p
:last_modified_at (get-timestamp) :last_modified_at (get-timestamp)
:published true})] :published false})]
(couch/put-attachment doc file :filename filename :mime-type content-type))))) (couch/put-attachment doc file :filename filename :mime-type content-type)))))
(defn update-file [id file content-type] (defn update-file [id file content-type]