     (flash-error "You do not have permission to access this page" "/problems")))
 
 (defroutes problems-routes
-  (GET "/problems" [] (problem-page))
-  (GET "/problem/:id" [id] (code-box id))
+  (GET "/problems" [] (problem-list-page))
+  (GET "/problem/:id" [id] (problem-page id))
   (GET "/problems/submit" [] (problem-submission-page))
   (POST "/problems/submit" [prob-id author title difficulty tags restricted description code]
     (create-problem title difficulty tags restricted description code (when (not= "" prob-id) (Integer. prob-id)) author))
-  (GET "/problems/unapproved" [] (unapproved-problems))
+  (GET "/problems/unapproved" [] (unapproved-problem-list))
   (POST "/problem/edit" [id]
     (edit-problem (Integer. id)))
   (POST "/problem/approve" [id]

               :golfChart (html (render-golf-chart))})))

(def-page code-box [id]
  (let [{:keys [_id title difficulty tags description restricted tests approved user]}
        (get-problem (Integer. id))]
    [:div
     [:span#prob-title
      (when-not approved

                       (from-mongo
                        (fetch :problems
                               :only [:_id :title]
                               :where {:_id {:$nin solved-problems}, :approved true}
                               :sort {:_id 1})))]
    (let [[skipped not-yet-tried] (split-with #(< (:_id %) just-solved-id)
                                              unsolved)]
