     (ring-resp/response
       {:links
        (-> {:self {:href "/forms"}
-            :up {:href ""}}
+            :up {:href "/"}}
            (assoc-when :prev (when (< 1 page-num) (page-link (dec page-num))))
            (assoc-when :next (when next-page? (page-link (inc page-num)))))
        :forms

     {:id (:subject/id subject)
      :type :subject
      :links
      {:up {:href ""}
       :self {:href (str "/subjects/" id)}}})
    (ring-resp/not-found
     {:links {:up {:href ""}}
      :error "Subject not found."})))

(defn retract-subject [conn id]
  (if (api/retract-subject conn id)
    (ring-resp/response
      {:links
       {:up {:href ""}}})
    (ring-resp/not-found
     {:links {:up {:href ""}}
      :error "Subject not found."})))

;; ---- Forms -----------------------------------------------------------------

    (ring-resp/response
     {:links
      (-> {:self {:href "/study-events"}
           :up {:href "/"}}
          (assoc-when :prev (when (< 1 page-num) (page-link (dec page-num))))
          (assoc-when :next (when next-page? (page-link (inc page-num)))))
      :embedded
