Permalink
Browse files

present option to review application or continue to summary for admins

  • Loading branch information...
1 parent 907f904 commit 8507511c179c8d152d956b539547acf98d30f514 @rmarianski committed Mar 16, 2012
Showing with 10 additions and 2 deletions.
  1. +10 −2 src/docphoto/core.clj
View
@@ -303,7 +303,7 @@
`(do ~@(for [slug application-slugs]
`(defapplink ~slug))))
-(defapplinks upload submit success update)
+(defapplinks upload submit success update review)
(deflinks
(application-link [application-id] "application" application-id)
@@ -981,7 +981,15 @@
[:dd v]))]))
(defn app-view [request application]
- (redirect (application-submit-link (:id application))))
+ (let [app-id (:id application)
+ app-link (application-submit-link app-id)]
+ (if (admin? user)
+ (layout
+ request "Application"
+ [:ul
+ [:li (ph/link-to app-link "Application summary")]
+ [:li (ph/link-to (application-review-link app-id) "Review application")]])
+ (redirect app-link))))
(defn render-image [request image]
(list

0 comments on commit 8507511

Please sign in to comment.