                                        " Necessary: " (:recommendation/necessary recommendation) " Priority: " (:recommendation/priority recommendation)
                                        " Type: " (:media/type media)
                                        " media/id: " (:media/id media)))
-  [:#complete] (if (not-all-backgrounds-completed? backgrounds) (html/set-attr :disabled "disabled") (html/set-attr :dummy "dummy"))
+  [:#complete] (if (not-all-backgrounds-completed? backgrounds) (html/set-attr :disabled "disabled") (html/set-attr :href (str "complete/" (:recommendation/id recommendation))))
   [:.recommendation-backgrounds] (html/content (map background-media backgrounds))
   [:.recommendation-translations] (html/content (map translation-media translations)))
 

(defn user-list []
  (response (model/users)))

(defn mark-as-completed [user recommendation]
  (log/info "user: " user "mark-as-completed recommendation:" recommendation)
  (model/mark-as-completed user recommendation)
  (response nil))

(defn change-goal [user specialization]
  (log/info "user: " user "change goal to specialization: " specialization)
  (model/change-goal user specialization)

(defroutes compojure-handler
  #_(GET "/" [] (slurp (io/resource "public/html/kmg.html")))
  (GET "/" [] (index))
  (GET "/complete/:recommendation" [recommendation] (mark-as-completed recommendation))

  (GET "/data/:user" [user] (whole-user-data user))
  (context "/recommendation" [] recommendation-routes)
