This commit is contained in:
Gered 2013-05-26 14:57:28 -04:00
parent fd86227e54
commit da8a9e3c5e

View file

@ -40,9 +40,6 @@
(session/flash-put! :file-error "No file selected to upload.")) (session/flash-put! :file-error "No file selected to upload."))
(resp/redirect (str "/listfiles" path))) (resp/redirect (str "/listfiles" path)))
(defn handle-delete-file [file]
(if-let [deleted (files/delete-file file)]
(session/flash-put! :file-success (str "<strong>" file "</strong> was deleted successfully."))
(defn handle-delete-file [id] (defn handle-delete-file [id]
(if-let [deleted (files/delete-file id)] (if-let [deleted (files/delete-file id)]
(session/flash-put! :file-success (str "<strong>" id "</strong> was deleted successfully.")) (session/flash-put! :file-success (str "<strong>" id "</strong> was deleted successfully."))