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

fix incorrect arguments

Browse source
This commit is contained in:
Gered 2013-05-26 15:35:33 -04:00
parent 49a9b36961
commit fb702b4aa0
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -69,9 +69,9 @@
(if-let [doc (couch/get-document id)]
(couch/delete-document doc))))
(defn publish-file [id published?]
(defn publish-file [id publish?]
(couch/with-db files
(if-let [doc (couch/get-document id)]
(couch/update-document (-> doc
(assoc :last_modified_at (get-timestamp))
(assoc :published published?))))))
(assoc :published publish?))))))

8
src/blarg/routes/files.clj
View file

@ -56,8 +56,8 @@
(session/flash-put! :file-error "File could not be deleted."))
(resp/redirect "/listfiles"))
(defn handle-publish-file [id]
(if-let [published (files/publish-file id)]
(defn handle-publish-file [id publish?]
(if-let [published (files/publish-file id publish?)]
(session/flash-put! :file-success (str "<strong>" id "</strong> was " (if (:published published) "published" "unpublished") " successfully."))
(session/flash-put! :file-error "Could not update file's published state."))
(resp/redirect "/listfiles"))
@ -73,6 +73,6 @@
(restricted POST "/uploadfile" [path file] (handle-new-file (ensure-prefix-suffix path "/") file))
(restricted POST "/updatefile" [id file] (handle-update-file (ensure-prefix id "/") file))
(restricted POST "/deletefile" [id] (handle-delete-file (ensure-prefix id "/")))
(restricted GET "/publishfile/:id" [id] (handle-publish-file id true))
(restricted GET "/unpublishfile/:id" [id] (handle-publish-file id false))
(restricted GET "/publishfile/*" [*] (handle-publish-file * true))
(restricted GET "/unpublishfile/*" [*] (handle-publish-file * false))
(GET "/files/*" [*] (get-file *)))