Fix issue #10 by adding a from-mongo function that sanitizes all read…

…s from mongodb. For now, it just turns floats into ints

src/foreclojure/login.clj

@@ -17,10 +17,11 @@
              [:td (label :pwd "Password")]
              [:td (password-field :pwd)]]
             [:tr
-             [:td (submit-button {:type "image" :src "/login.png"} "Log In")]]]))
+             [:td (submit-button {:type "image" :src "/login.png"}
+                                 "Log In")]]]))
 
 (defn do-login [user pwd]
-  (if-let [db-user (fetch-one :users :where {:user user})]
+  (if-let [db-user (from-mongo (fetch-one :users :where {:user user}))]
     (if (.checkPassword (StrongPasswordEncryptor.) pwd (db-user :pwd))
       (do (session/session-put! :user user)
           (response/redirect "/problems"))

src/foreclojure/problems.clj

@@ -8,17 +8,20 @@
 
 (defn get-solved [user]
   (set
-   (:solved (fetch-one :users
-                       :where {:user user}
-                       :only [:solved]))))
+   (:solved (from-mongo
+             (fetch-one :users
+                        :where {:user user}
+                        :only [:solved])))))
 
 (defn get-problem [x]
-  (fetch-one :problems :where {:_id x}))
+  (from-mongo
+   (fetch-one :problems :where {:_id x})))
 
 (defn get-problem-list []
-  (fetch :problems
-         :only [:_id :title :tags :times-solved]
-         :sort {:id 1}))
+  (from-mongo
+   (fetch :problems
+          :only [:_id :title :tags :times-solved]
+          :sort {:id 1})))
 
 (defn mark-completed [id]
   (if-let [user (session/session-get :user)]

src/foreclojure/users.clj

@@ -3,8 +3,9 @@
         [somnium.congomongo])) 
 
 (defn get-users []
-  (fetch :users
-         :only [:user :solved]))
+  (from-mongo
+   (fetch :users
+          :only [:user :solved])))
 
 (def-page users-page []
   [:table {:class "my-table" :width "50%"}

src/foreclojure/utils.clj

@@ -1,8 +1,10 @@
 (ns foreclojure.utils
   (:use (hiccup [core :only [html]]
-                [page-helpers :only [doctype include-css]]))
+                [page-helpers :only [doctype include-css]])
+        [amalloy.utils.transform :only [transform-if]])
   (:require [sandbar.stateful-session :as session]
-            (ring.util [response :as response])))
+            (ring.util [response :as response])
+            [clojure.walk :as walk]))
 
 (defmacro dbg [x]
   `(let [x# ~x] (println '~x "=" x#) x#))
@@ -35,6 +37,10 @@
      (html-doc
       ~@code)))
 
+(defn from-mongo [data]
+  (walk/postwalk (transform-if float? int)
+                 data))
+
 (defn row-class [x]
   {:class (if (even? x)
             "evenrow"