8fce5bbfe1d3

Watch shows.
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Thu, 29 Sep 2011 23:28:26 -0400
parents e22577b16eb5
children 991807da55ff
branches/tags (none)
files src/newseasons/views/main.clj

Changes

diff -r e22577b16eb5 -r 8fce5bbfe1d3 src/newseasons/views/main.clj
--- a/src/newseasons/views/main.clj	Thu Sep 29 23:19:31 2011 -0400
+++ b/src/newseasons/views/main.clj	Thu Sep 29 23:28:26 2011 -0400
@@ -26,7 +26,7 @@
 (defn unique-by
   "Turn a sequence of maps into a new sequence with duplicated removed, with
   uniqueness determined by the given keys.
-  
+
   Ex:
 
       (def a {:foo 1 :bar 1 :baz 1})
@@ -139,8 +139,9 @@
 
 
 ; Add -------------------------------------------------------------------------
-(defpage [:post "/add"] {:as show}
+(defpage [:post "/add"] {:keys [artist-id]}
          (login-required
+           (users/user-add-show! (sess/get :email) artist-id)
            (flash! "Added a show to your list.")
            (resp/redirect "/")))