gered/blarg
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

only serve published files

Browse source
This commit is contained in:
Gered 2013-05-21 19:26:18 -04:00
parent 0e68ce12b1
commit 65de2410a3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/blarg/models/files.clj
View file

@ -6,7 +6,7 @@
(defn get-file [file] (defn get-file [file]
(couch/with-db files (couch/with-db files
(if-let [file-info (->first-view-value (if-let [file-info (->first-view-value
(couch/get-view "files" "listAll" {:key file}))] (couch/get-view "files" "listPublished" {:key file}))]
(let [id (:_id file-info) (let [id (:_id file-info)
attachment (:filename file-info) attachment (:filename file-info)
attachment-info (second (first (:_attachments file-info))) attachment-info (second (first (:_attachments file-info)))